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1702+* ~ 1eiies TEST UNIT 
+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: + 
1704+* x TURESUL BIT 0------------ PLO OUT OF SYNC CHECK 1819+* (TU26) SEEK TEST #1 3/02/77 
1705+* ; TURESUL BIT 1------------ DATA UNSAFE 1820+* 
1706+* é TURESUL BIT 2------------ INTERRUPT 1821+* PURPOSE 
1707+ : TURESUL BIT 3------------ FILE NOT READY 1822+* 
1708+* : 1823+* FUNCTION: TO DETERMINE THE OPERATIONAL STATUS OF SFEK FUNCTION. 
1709+* : TURESUL BIT 4------------ RECAL 1824+* . 
1710+4+* TURESUL BIT 5----------- NOT USED 1825+* PROGRAM INITIALIZES ATTACHMENT. 
1711+* ¥ TURESUL BIT 6------------ NOT USED 1826+* si RECALIBRATE AND DO A ONE TRACK SEEK (FORWARD-OUT DIRECTION 
1712+* : TURESUL BIT 7----------- NOT USED 1827+* : CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO THE 
a ae i 1828+% SEEK OPERATION. 
+* ¢ TURESUL BIT 8------------ BEHIND HOME + 
(ees 2 BUBESUE BEE Ygzcoa2ca=— Sony SEVEN nRcK oN Brca Es aaa tenia 
‘ -9ESUL BIT 10----~------ NOT) EVEN TRACK INDICATED 
1717+* 7 TURESUL BIT 11----------- Nor Been . 1832+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
eek Wause 0] tunggur Bre $o-o2-c--—o- gE Een tuvOor Deites Or RS HST" 
+* Z TURESUL BIT 12----------- RECALIBRATE NOT RESET + : eS aS ee ae 
1720+* : TORFSUL BIT 13---------- NOT USED 1835+* P TORESUL BIT 2------------ UNSAFE 
vi2\e2 i TURESUL BIT 14---------- SEEK 1&5 2 NOT PRESET Hee . TURESUL BIT 3------~------ SEEK CHECK (SEEK COMPLETE TIME OUT 
+* 5 TURESUL BIT 15----------- NOT) ON TRACK + . 
1723+* i ( ) 1838+* ‘ TURESUL BIT 4--------~---- PLO OUT OF SYNC 
1724+* A TURESUL BITS 16-31 CS STATS FOR FAILING OP 1839+* a TURESOUL BIT S<----------- BEHIND HOME BIT NOT RESET 
1725+* : 1840+* ; TURESUL BIT €------------ HOME BIT NOT RESET 
1726+* EXITS NORMAL 18414+* 4 TURESUL BIT 7----------- BRAKE FAILURE 
172 7+* a RETURNS TO MDI SUPERVISOR WHEN DONE. 1842+* : 
1728+ : 1843+* TURESUL BIT 8------------ SEEK 1 AND 2 ON WHEN DONE 
1729+% EXITS EPROR 1844+* TURESUL BIT 9----------- INTERRUPT ERPOR 
1730+* : RETURNS TO MDI SUPERVISOR. 1845+* : TURESUL BIT 10-ON TRACK "ON'-TIMEOUT ERR (FAILED TO TURN ON 
1731+% 18U6+* : TURESUL BIT 11-ON TRACK 'OFF'-TIMEOUT ERR (FLD TO TURN OFF) 
1732+* PETURN CONTROL 1847+* ° 
1733+* 1848+* i: TURESUL BIT 12-EVEN TRACK NOT RESET 
1734+* B TURTN* RETURN TO MDI SUPERVISOR 18494 ‘ TURESUL BIT 13-SEEK DIRECTION LINE INCORRECT 
1735+ 1850+* ‘ TURESUL BIT 14-SEEK 1 & 2 NOT ON AFTER COMMAND 
173 64 RR ORI IOR IG RIO I OR Ig dO a gokE gor oka dei ak ak ark 1851+* - TURESUL. BIT os sSSsereee= NOT READY 
00326E 6FO0D 325E 1737+T7870 MVW R7,TURTN SAVE RETURN ADDRESS 1852+* 
003272 4020 3226 7870 1738+ MVWI xX°7870',$TUID SAVE TU ID FOR DISPLAY 1853+* . TOURESUL BLT -16=====---=—- RECALIBRATE FAILURE 
003278 4424 3220 1739+ MVA OPTN1,R4 SET UP POINTER ADRS IN R4& 1854+ ° TURESUL BIT. VW SsS3=---s-= SEEK FAILURE 
00327C 6E03 3BAA 1740+ BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 1855+* - TURESUL BIT 18-31-------— NOT USED 
003280 3BDE 1741+ DC A (SERS S$) ERROR ADRS FOR INVALID PREP 1856+* . 
1742+% 18574* ‘ TURESUL BIT 32-47-------- CS STATUS FOR FAILING )P 
003282 8028 19D0 3943 1743 MVB DEVADD, IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 1858+* x 
003288 8028 19D0 393F 1744 MVB DEVADD, IDCBO+1 LOAD DEVICE ADDRESS IN IDCB 1859+* EXITS NORMAL 
00328E C020 0232 1745 MVB  CPUID,RO DETERMINE CPU TYPE 1860+* . RETURNS TO MDI SUPERVISOR WHEN DONE. 
003292 F025 1746 CBI 37,R0 * 1861+* ° 
003294 1804 1747 INE TT70 JUMP IF NOT 4955 1862+% EXITS ERROR 
003296 4020 32AC 254C 1748 MVWI X'254C',TT7OA+2 LOAD TIME CONSTANT FOR 2 SEC 1863+ : RETUPNS TO MDI SUPERVISOR. 
00329c 5003 1749 J TT7OB 1864+* 
00329E 4020 32AC OCOE 1750 TT7O MVWI X'OCOE!' ,TT7OAt+2 LOAD TIME CONSTANT FOR 2 SEC 1865+* RETURN CONTROL 
0032A4 4724 3896 1751 TT70B MVA IOBLK,R? SETUP IOBLK 1866+* 
0032A8 6008 1752 SVC. RESET ISSUE IO RESET 1867+* B TURTN* RETUPN TO MDI SUPERVISOR 
0032AA 4024 0000 1753 TT7OA MVWI xX'0O000',RO TIME OUT 2 SEC 1868+* 
OO32AE 6002 1754 TTT7OC SVC IDLE * VB Qa HR HO RR OK FC I OR I I ROR RII Ok 2 2 Co ke ig fk a ic afc ak ae ai ak ae ee oc fe 2 ae 
0032B0 B8FE 1755 JCT TT70OC,RO * 00333C 6FOD 325k 1870+T7826 MVW  R7,TURTN SAVE RETURN ADDRESS 
0032B2 CA25 18C8 1756 MVWZ TURESUL, CLEAR RESULTS WORD 003340 4020 3226 7826 1871+ MVWI X'4826' stTUID SAVE TU ID FOR DISPLAY 
0032B6 CA25 18CA 1757 MVWZ TURESUL+ CLEAR RESULTS WORD 2 003346 4424 3220 1872+ MVA OPTN1,R SET UP POINTER ADRS IN R4 
0032BA 4224 18C8 1758 MVA TURESUL ADDRESS OF RESULTS 00334A 6803 3BAA 1873+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
0032BE 6803 3AA2 1759 £702 BAL XIOCS,R6 START CYCLE STEAL STATUS 00334E 3BDE 1874+ DC A (SERFS) ERROR ADRS FOR INVALID PREP 
0032C2 3BDE 17€0 DC A (SERRS) ERROR 1875+% 
0032C4 4CA1 1761 TBTR gu ER) INTERRUPT ERROR 003350 8028 19D0 3943 1876 MVB DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
0032C6 6A00 3BDE 1762 BON ERRS$ YES 003356 C020 0232 1877 MVB  cCPuiD,kO DETERMIINE CPU TYPE 
0032CA 8828 3248 38CA 1763 MVW CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATUS 00335A FO25 1878 CBI 37,R0 * 
0032D0 4524 38CA 1764 MVA STATS, RS * 00335c 1810 1879 JNE TT26 JUMP IF NOT 4955 
0032D4 4D87 1765 TBTR {22 7) TEST FOR UNSAFE 00335E 4020 33EC OO09F 1880 MVWI X'OO9F! ,T264+4+2 LOAD TIME CONSTANT FOR 4-5 MSEC (4.7 
0032D6 1001 1766 JOFF 704 003364 4020 3404 0140 1881 MVWI X'0140',1T266+2 LOAD TIME CONSTANT FOR 9-10 MSEC (9.6 
0032D8 4a 1767 TBTS R204) TORN ON DATA UNSAFE 00336A 4020 3426 0400 1882 MVWI xX'O400!',T26C+2 LOAD TIME CONSTANT FOR 15 MSEC 
0032DA 4D8F 1768 £701 TBTR (R5,15) TEST NOT READY 003370 4020 3444 OFFF 1883 MVWI X'OFFF!,T26D+4 LOAD TIME CONSTANT FOR 2 SEC TIMEOUT 
0032DC 1001 1769 JOFF 705 003376 4020 33A4 254c 1884 MVWI X*254C',T26TC+2 LOAD TIME CONSTANT FOR 2 SEC 
0032DE 4aA43 1770 TBTS (R2,3) TURN ON NOT RFADY 00337C ‘SOOF 1885 J TT261 
0032E0 4D8B 1771 £702 TBTR (P5511 RESET UNSAFE BITS 00337E 4020 33EC 0038 1886 TT26 MVWI X'0038!,T2644+2 LOAD TIME CONS FOP 4-5 MSEC (4.5 
0032B2 4D8sc 1772 TBTR (R5,12 003384 4020 3404 0070 1887 MVWI X*0070!,T266+2 LOAD TIME CONS FOR 9.5 MSEC (9.5 
0032E4 4D8D 1773 TBTR (R5°13 * 00338A 4020 3426 0130 1888 MVWI X'0130',T26C#2 LOAD TIME CONSTANT FOR 15 MSEC 
0032E6 402F 38CA 0000 1774 CWI StAT ANY OTHER ERROP BITS ON? 003390 4020 3444 FFFE 1889 MVWI X'FFFE!,T26D+4 LOAD CONS FOR 2.9 SEC 
0032EC 1006 1775 JE TIOB NO 003396 4020 33A4 OCOE 1890 MVWI X'OCOE' ,T26TC+2 LOAD TIME CONSTANT FOR 2 SEC 
OO0O32FB 4A 1776 TBTS R2,4 RECAL ERROR 00339C 4724 3B96 1891 TT261 MVA TOBLK, R7 SETUP IOBLK 
0032F0 4A42 1777 TBTS {2 3} INTEPRUPT ERPPOR 0033A0 6008 1892 SVC_ RESET ISSUE IO RESET 
0032F2 8828 3248 18CA 1778 MVW SBUF+2,TURESUL+2 cS STATS 0033A2 4024 0000 1893 T26TC MVWI X'0000!,F0 TIME OUT 2 SEC 
0032F8 501F 1779 J T7OA EXIT 003346 6002 1894 T726 SVC IDLE * 
0032FA 6803 3908 1780 T70B BAL SENS1,R6 GET SENSE WORD ONE 0033A8 B8FE 1895 JCT T726,R0 * 
0O032FE 3BDE 1781 DC A (SERRS) ERROR 0033AA CA25 18C8 1896 MVWZ TURESUL,R2 CLEAR RESULTS WORD 
003300 4124 3944 1782 MVA RDATA,R ADDRESS OF SENSE DATA 0O033AE CA25 18CA 1897 MVWZ TURESUL+2,F2 CLEAR RESULTS WORD 2 
003304 4901 1783 TBT {BA 1f TEST PLO OUT OF SYNC 0033B2 CA25 18CC 1898 MVWZ TURESULt+4,R2 CLEAR RESULTS WORD 3 
003306 1001 1784 JOFF 703 0033B6 4224 18C8 1899 MVA TURESUL,RD ADDRESS OF RESULTS 
003308 4A4O 1785 TBTS R2 ,0 SET "PLO OUT OF SYNC! 0033BA 4020 37cC 0005 1900 MVWI xX*'0005',SKDCB SEEK 
003304 4909 1786 1703 TBT R1,9 TEST NOT BEHIND HOME 0033C0 4020 37CE 0001 1901 MVWI 1,SKDCB+t FORWARD DIRECTION ONE TRACK 
00330C 1201 1787 JON 704 0033C6 4C67 1902 TBTS (Ba NI) TURN ON NO INTERRUPT EXPECTED 
00330E 4aA48 1788 TBTS (R2,8 SET BEHIND HOME 0033C8 6£E03 39C8 1903 BAL SEEK , R6 SEEK 
003310 4905 1789 7704 TBT P1 5 TEST HOME POSITION 0033CC 3BDE 1904 DC B(SERRS) ERROR 
003312 1201 1790 JON 705 0033CE 6£03 3908 1905 BAL SENS1,R READ SENSE WORD ONE 
003314 4aA49 1791 TBTS R2/9) SET ACCESS HEAD NOT HOME 003302 3BDE 1906 DC A (SERRS) ERROR 
003316 490F 1792 7705 TBT R1,15) TEST EVEN TRACK 0033D4 4124 3944 1907 MVA RDATA,R&1 ADDRESS OF SENSE DATA 
003318 1201 1793 JON 706 0033D8 490D 1908 TBT (RI 15) TST NOT SEEK 1 6 2 
00331A GAA 1794 TBTS (R2,10 SET NOT EVEN TRACK INDICATED Q0O33DA 1001 1909 JOFF 262 
00331C 490D 1795 1706 TBT R1,13 TEST NOT SEEK 1 AND 2 0033DC 4AYE 1910 TBTS (R2,14 TURN ON SEEK 1 & 2 NOT ON 
00331E 1201 1796 JON 708 0033DE 490F 1911 T1262 TBT R1,15 TEST EVEN TRACK 
003320 4A4GE 1797 TBTS (R2,14 SET SEEK 1 AND 2 NOT RESET 0033E0 1001 1912 JOFF 1263 
003322 490A 1798 T708 TBT F1,10 TEST ON TRACK 0033E2 4adc 1913 TBTS (R2,12) TURN ON EVEN TRACK NOT RESET 
003324 1201 1799 JON 70§ 0033E4 4906 1914 T7263 TBT R1,6) TEST NOT OUT DIRECTION 
003326 4AU4F 1800 TBTS (R2, 15) SET NOT ON TRACK 0033E6 1001 1915 JOFF 1264 
003328 6E03 391C 18071 1709 BAL EWS0, 86 GET SENSE WORD ZERO 0033E8 4A4D 1916 TBTS (R2,13) TRN ON SEEK DIRECTION LINE INCOPRECT 
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17809 --- 4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 09 17809 --- 4962 DISK STATUS AND SEEK TEST P/N= 1635428 EC=755285 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0O33EA 4024 0000 1917 T264 MVWI xX'0000!,R0 SET COUNT FOR 4-5 MSEC TIME OUT (4) 2032+* . TURESUL BIT 13--------- RECALIBRATE FAILURE 
0033EE 6£E03 3908 1918 T267 BAL SENS], s} READ SENSE WORD OWE 20334* z TURESUL BIT 14--------- NOT READY 
0033F2 3BDE 1919 Dc SERR 20344* : TORESUL BIT 15--------- NOT USED 
0033F4 4124 3944 1929 MVA ATA, ADDRESS OF SENSE DATA 2035+# 
0033F8 490A 1921 TBT AR] 16 TEST ON TRACK 20 36+* TURESUL BITS 16-31-----CYCLE STEAL STATUS FOR FAILING OP 
0033FA 1003 1922 JOFF 17266 2037+* : 
0033FC B8F8 1923 ICT 1266) DECREMENT TIME OUT COUNT 2038+* EXITS NORMAL 
0033FE 6802 3496 1924 B T265 4-5 MSEC TIME HAS EXPIRED 2039+* : RETURNS TO MDI SUPERVISOR WHEN DONE. 
003402 4024 0000 1925 1266 MVWI X*'0000',RO SET COUNT FOP 9-10 MSEC TINE OUT(9.4) 2040+* : 
003406 6£03 3908 1926 T7268 BAL  SENS1,R6 READ SENSE WORD ONE 20414+% EXITS ERROR 
OO340A 3BDE 1927 DC A (SERRS) 2042+% . RETURNS TO MDI SUPERVISOR. 
00340C 4124 3944 1928 MVA  RDATA,R ADDRESS OF SENSE DATA 2043+* 
003410 490A 1929 TBT it 16) ON TRACK? 20444* RETURN CONTROL 
003412 1202 1930 JON 269 2045+* 
003414 B8FS 1931 ICT  1268,R0 DECEMENT TIME OUT COUNT 2046+* B TURTN* RETURN TO MDI SUPERVISOR 
003416 4GAUA 1932 T26A TBTS (R2,40 TURN ON ‘ON TRACK' ON (TIME EXPIRED) 2047+% 
003418 4“90D 1933 T2693 TBT R1,13 NOT SEEK 1 8&8 2? ZOU BKK KKKEKKKEKK AK KKK EKKKKAEKKEAKKAKKKEKHKEKKKKEKEKKEKEKEKKEKEKEEKKEKEKEK KKEKEKSE KKK 
OO341A 1201 1934 JON 266 OO34AA 6FOD 325E 2049477823 MVW TURTN SAVE RETURN ADDRESS 
00341C 4aAus 1935 TBTS (R2,8 SEEK 16 2 ON OO34AE 4020 3226 7823 2050+ MVWI X'47823' $TUID SAVE TU ID FOR DISPLAY 
00341E 4905 1936 T26B TB R1,5 HOME POSITION? 00O34B4 4424 3220 20514 MVA OPTN4, Ri SET UP POINTER ADRS IN R4 
003420 1001 1937 JOFF 126¢ 0034B8 62803 3BAA 2052+ BAL $CONC CLEAR DEV DEP STG AND CONNECT I/0 BL 
003422 4AU46 1938 TBTS AR 6) HOME BIT NOT RESET 0034BC 3BDE 2053+ DC A (SER g£§) ERROR ADRS FOR INVALID PREP 
003424 4024 0000 1939 T26c MVWI xX'0600',RO TIME OUT 15 MSEC 2054+* 
003428 6803 3908 1940 TI26C BAL SENS1,R6 READ SENSE WORD ONE OO34BE C020 0232 2055 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 
00342C 3BDE 1941 pc A (SERRS) * 0034c2 F025 2056 CBI 37,R0 * 
00342E 4124 3944 1942 MVA  RDATA,R1 DATA ADDESSS 0034c4 1808 2057 JNE T2347 JUMP IF NOT 4955 
003432 4909 1943 TBT its Qf NOT BEHIND HOME? 0034C6 4020 34E2 254C 2058 MVWI X'254C',T23T1+2 LOAD TIME CONSTANT FOR 2 SEC 
003434 1201 1944 JON 26bD 0034CC 5003 2059 J T2372 
003436 4A4S 1945 TBTS (R2 5) BEHIND HOME NOT RESET 0034CE 4020 34E2 OCOE 2060 T23T MVWI X*"OCOE', 1237142 (4953) LOAD TIME CONS FOR 2 SEC 
003438 B8FT 1946 T26DD JCT T26C,R0 TIME OUT APPROX 15 MSEC 0034D4 8028 19D0 3943 2061 T23T2 MVB  DEVADD,{DCBI1+1 OA EVICE ADDRESS IN IDC 
00343A 4CA3 1947 TBTR (R4,1N) INTERRUPT WAITING? O0O34DA 4724 3B96 2062 MVA  TIOBLK,R7 SETUP IOBL 
00343c 120C 1948 JON 268, YES O034DE 6008 2063 SVC RESET ISSUE To BESET 
OO343E 4A4S 1949 TBTS (R2 9) NO-SET INTERRUPT ERROR 0034E0 4024 0000 2064 T23T1 MVWI X*0000',RO TIMEOUT APPROX 2 SEC 
003440 4020 3840 0000 1950 T26D MVWI xX'0600', TIMEOUT TIME OUT FOR NO INTERRUPT OO34E4 6002 2065 1723 SVC IDLE * 
003446 4CA3 1951 T26F TBTR (Ro IN) HAS INTERRUPT BEEN RECEIVED IN 2.5SEC 0034E6 BSFE 2066 Jct  %723,R0 * 
003448 1206 1952 JON 268 0034E8 CA25 18C8 2067 MVWZ TURESUL,R2 CLEAR RESULTS WORD 
OO344A AB2A 3844 3840 1953 AD TONE, TIMEOUT DECREMENT TIME OUT COUNT 0034EC CA25 18CA 2068 MVWZ TURESUL42,R2 CLEAR RESULTS WORD2 
003450 18FA 1954 JNZ  T26F 0034FO0 4224 18C8 2069 MVA  TORESUL,RS ADDRESS OF RESULTS 
003452 4a51 1955 TBTS (RZ, 17) SEEK FAILURE NO INTERRUPT 0034F4 6803 39D0 2070 BAL $RECL,R6 RECALIBRATE 
003454 5O1E 1956 J EXIT 0034F8 3542 2071 DC A (P23 fy) ERROR 
003456 6EF03 3B60 1957 T26E BAL xXIOCK CHECK INTERRUPT CONDITIONS OO34FA 4CA1 2072 TBTR es ER) INTERRUPT ERROR? 
00345A 3BDE 1958 DC A (SERES) ERROR 0O0O34FC 1032 2073 JOFF 1716 NO 
00345Cc 4cAg 1959 TBTR (Ba CSA CS STATS AVAILABLE? OO34FE 4cCAd 2074 TBTR (Ra CSA) TST FOR CYCLE STEAL STATS 
00345B 1019 1960 JOFF 1264 NO 003500 6800 3BDE 2075 BOFF $ER ERROR 
003460 402F 3248 0000 1961 CWI. 0O,CSBUF+2 ANY CS STATS FOR SEEK 003504 8828 3248 38CA 2076 MVW  CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATS 
003466 1015 1962 JE T56H NO EXIT 00350A 4524 38CA 2077 MVA  STATS,RS5 * 
003468 8828 3248 38CA 1963 MVW CSpure2 STATS ADDRESS OF CYCLE STEAL STATS 00350E 4D87 2078 TBTR (RS 7) UNSAFE? 
OO346E 4524 38CA 1964 MVA  sTats,R5 * 003510 1001 2079 JOFF 123§s NO 
003472 4D87 1965 TBTR ite UNSAFE? 003512 4AU4cC 2080 TBTS (R2,12 SET- UNSAFE 
003474 1001 1966 JOFF 726A: NO 003514 4D8A 2081 T23SS TBTR (R5,10 BRAKE FAILURE? 
003476 4A42 1967 TBTS R2,2) SET- UNSAFE 003516 1001 2082 JOFF 7123TT NO 
003478 UDBA 1968 T26AA TBTR R5,10) BRAKE FAILURE? 003518 KAYB 2083 TBTS R2,11) SET- BRAKE FAILURE 
O00347A 1001 1969 JOFF 712688 NO 00351A 4D86 2084 T23TT TBTR (R5:6) PLO OUT OF SY¥NC CHECK? 
| 00O347C 4AUT 1970 TBTS (R2,7 SET- BRAKE FAILURE 00351C 1001 2085 JOFF 712360 NO 
| OO347E 4D86 1971 T26BB TBTR (R5.6 PLO OUT OF SYNC CHECK? 00351B GAGA 2086 TBTS (R2,10) SET- PLO OUT OF SYNC 
003480 1001 1972 JOFF 1T26€c NO 003520 4p89 2087 T23UU TBTR ¢R5/9) SEEK CHECK? 
003482 4aug 1973 TBTS (R2,4 SET- PLO OUT OF SYNC 003522 1001 2088 JOFF 7T23h NO 
003484 4p89 1974 T26CC FBTR (R5.9 SEEK CHECK? 003524 4aA43 2089 TBTS R2 +3) SET- SEEK CHECK 
003486 1001 1975 JOFF T2DSD NO 003526 4D8B 2090 T23A TBTR (R5-1 RESET UNSAFE BITS 
003488 4aAg3 1976 TBTS (R2,3 SET SEEK CHECK 003528 4D8C 2091 TBTR (R5,12 * 
OO348A 4AS1 1977 T2DDD TBTS (R2,1 , SEEK FAILURE 00352A 4D8D 2092 TBTR (R5(13 x 
00348C 8828 3248 18CC 1978 MVW SBOF+ ,TURESUL+4 CS STATUS FOR SEEK FAILURE 090352C LO2F 38CA 0000 2093 CWI Stat OTHER EPROR BITS ON? 
1979 T26H TXIT 003532 6800 3572 2094 BE T4530 NO-EXIT 
003492 6802 3C2E 19804+T26H B $SCONX RETURN TO MDI CONTROLLER 003536 4A4D 2095 T23AA TBTS (R2,13) SET RECAL FAILURE 
1 QB HH HR MH Hee HK eH eH He HE Be ee ee He He He He He HH eH ee ae He He he ee eH Ke oe Hee ek HK 003538 “AUO 2096 TBTS R2 0) SET- INTERRUPT ERROR 
1982 * 00353A 8828 3248 18CA 2097 “VW SBOF+2,TURESUL+2 CS STATS 
003496 4A4B 1983 1265 TBTS (R2,11 SET ON TRACK OFF 003540 5018 2098 J 7230 EXIT 
003498 490B 1984 TBT R1.11 NO SELECT OUT? 003542 7B06 0003 2099 T23YY CWI xX*0003',R3 CHECK FOR COMMAND REJECT 
003494 1002 1985 JOFF 126k 003546 6801 3BDE 2190 BNE $ERR$ ERROR-TU NG 
00349C 4aAdt 1986 T26M TBTS AR2 1) TURN ON SELECT DRIVES NOT AS EXPECTED 003548 6E03 3AA2 2101 BAL XIOCS,R6 START CYCLE STEAL STATS 
00349E SOD0 1987 3 265 00354E 3BDE 2102 DC A (SERRS) ERROR 
0034A0 490C 1988 T26K TBT ee 12) TEST SELECT IN DRIVE 003550 WCA1 2103 TBTR { 4 ,ER) INTERRUPT ERROR? 
0034A2 1201 1989 JON 26L 003552 6A00 3BDE 2104 BON EPRS YES 
OO34A4 SOFB 1990 J 126 M 003556 402B 3248 0001 2105 TWI  X'0001',CSBUF+2 NOT READY? 
003486 GA4O 1991 T26L TBTS (R2 0) TURN ON-ON TRACK NOT AS EXPECTED 00355c 10EC 2106 JOFF T23AA NO-ERROR 
» 0034A8 5SOCB 1992 J 6b 00355E 4AUE 2107 TBTS (B2 14) SET NOT READY 
1993 * 003560 SOEA 2108 "i 23Ka EXIT 
1994 * 003562 6E03 3908 2109 1710 BAL  SENS1,R6 GET SENSE WORD ONE 
1996 COPY 17823 01DECT6 003566 3BDE 2110 DC A (SERRS) ERROR 
1997 17823 TUIT SERRS 003568 402B 3944 0400 2111 TWI X*O40O0',RDATA TEST HOME POS 
1 OD B+ HH HK MH HK He Me Hee He He He ake ae 3h He He hee 2 He he ee hee 2h hee ee ee he he Se te he he he 2h ae a ae ee ok ok ak RKO GP EBT G6 eX 00356E 1201 2112 JON T7230 HOME IS ON 
19994 003570 4GA41 2113 TBTS (R2,1) SET "HOME OFF! 
2000+* TEST UNIT 2114 7230 TXIT ; 
2001+* 003572 6802 3C2E 2115+7T230 B SCONX RETURN TO MDI CONTROLLER 
2002+* (TU23-T071) RECALIBRATE TEST #1 12/01/76 Bg eer era tne ae er ery pe gee ere Sarit ne Nee ein, Soe Oy ee eee ee gee 
2003+* * 
2004+* PURPOSE 2119 COPY 17872 01DEC76 
2005+* 2120 KR III RI ROR III III IO OR IR ak ICI tote ek 
2006+* FUNCTION: TO DETERMINE THE OPERATIONAL STATUS OF RECAL FUNCTION. 2121 *T7872 x 
2007+* : 2122 * THIS TU INHIBITS INTERRUPT 12/01/76* 
2008+* * PROGRAM INITIALIZES ATTACHMENT. 2123 * CALLING ROUTINE LOOPS OWN T72A * 
2009+* a RECALIBRATE 2124 ee ey aa ee ene Gane er nee 
2010+% > CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO THE 003576 6FOD 325E 2125 T7872 MVW TN SAVE RETURN ADDRESS 
2011+* ~  RECALIBRATE OPERATION. 00357A 4020 3B9A 0020 2126 MVWI ET bagoF IODCB PREP TO LEVEL 2 WITH THE 'I' BIT OFF 
2012+* 003580 4724 3B96 2127 MVA  TIOBLK,R? * 
2013+* CALLING SEQUENCE 003584 600C 2128 SVC PREP * 
20144+* 003586 5002 2129 3 T72B 
2015+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 003588 6F0OD 325E 2130 T72A MYW R7.TURTN SAVE RETURN ADDRESS 
2016+* z TURESUL BIT 0------------ INTERRUPT ERROR 00358C 6802 3C2E 2131 T72B B $CONX EXIT 
20174+* : TURESUL BIT 1------------ HOME POSITION NOT ON 2132 * 
2018+* é TURESUL BIT 2~------------ NOT USED 2134 COPY T7876 OTDECT6 
2019+* : TURESUL BIT 3------------ SPEK CHECK (SEEK COMPLETE TIME OUT 2135 * 12/01/76 
2020+* i 2136 * PROGRAM MONITORS THE FOLLOWING INTERFACE LINES AND PASSES 
2021+* ; TURESUL BIT 4------------ NOT USED 2137 * THE RESULTS BACK TO BE USED BY THE MDI SUPERVISOR. 
20224+* i. TURESUL BIT 5----------- NOT USED 2138 * . +PLO OUT OF SYNC 
2023+* : TURESUL BIT 6------------ NOT USED 2139 * > =6-GUARD BAND 
2020+* : TUORESUL BIT 7----------- NOT USED 2140 * . =-SELECT OUT DRIVE 
2025+* bf 2141 * . <-SELECT IN DRIVE 
2026+* : TURESUL BIT 8------------ RESERVED (ALWAYS ZERO) 2142 * > -LINEAR REGION 
2027+* ‘ TURESUL BIT 9----------- NOT USED 2143 * : SECTOR PULSES 
2028+* i TURESUL BIT 10--------- PLO OUT OF SYNC 27144 * e INDEX PULSES 
2029+* TURESUL BIT 11--------- BRAKE FAILURE 2145 * 5 
2030+* : 2146 * > INPUT FROM CE FROM PREVIOUS REQUEST 
2031+* TURESUL BIT 12--------- UNSAFE 2147 * . + IF WRITE CLOCK 





17809 --- 4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 10 [7809 =-- 4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 10A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2148 * : + TOO FAST 903624 HAS 2262 TBTS {82421) SET "GUARD BAND' PULSING 
5180 * ° =e 00 3€58 RASS 2264 T767 TBTS (R2,5 SET INDICATION THAT "LINE IS UP! 
2151 * PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: ere aoe eoee T769 es {rac TEST "LINEAR REGION 
ig3 | TEMENS"her Qa "tte goal of true potszuc 003838 intg 387 aR 3820) 
Big = Hotes Honaad, sppurgs= coed 0002, 900) o93630 4483 383 BBs E8UBy) SON? sTEWERN aBgcOnt 20S mc 
o1ee * : * ORES ae js a Sea enor eee NOt USED 003634 5001 2270 J 1766 
e PB eee es P ‘ 
2157 e TURESUL BIT 2-~-~----~---NOT USED 003638 4AGB 554) TIER TRTS p27 43 DRE-SET INDEX PULSE NOT PULSING 
ee,  aneaeas g33e8 458 Bi aR, thee) Beas Sante rC 
2160 * ‘ TURESUL BIT 4------------ NOT USED 
gies x : Potent enter Golo oun ue j036K0 1304 3342 ON see??? JUMP IF LINE IS UP 
21e2 3 : FOU a tartg ie oo gee oe 003642 4AAB 2377 TBTR (R2,43) SET "INDEX" PULSING 
ART * : 003644 4808 2278 T76C TBT (8378) TEST "SECTOR PULSE! 
2165 * : TURESUL BIT 8------------ NOT USED naaeaG 1o9e eae sour a8 24) 
216s + : gb eeu gre agssec ae Seer eca ee Genel” 003644 1302 2281 JON 17665 JUMP IF LINE IS _PULSING 
2168 * : TURESUL BIT 11----------- + TOO FAST eae GAGE 2282 TBTS (2,30) SET "SECTOR PULSE! PULSING 
= ' 
2170 * : TORESUL BIT 12----------- NOT USED poaeeS hoes Sean Too) one ae i Se eg er ‘LINE IS UP 
2171 * i TURESUL BIT 13---------- -~LINEAR REGION 003652 BOB eae ete Ze 
2172 * i TURESUL BIT 14---------- SECTOR PULSES 003654 1005 2286 JOP ee 
3133 ; : ee BEE, ten e oe TAR ene EeOee 03628 1303 2228 JON tebe JUMP IF LINE IS PULSING : 
2173 : BULSING STATUS OF LINE ISIN TURESUL+2 003624 ee 2289 TBTs (82.25) SET "SELECT OUT DRIVE! PULSIN 
3 = ra : 
2177 * : TURESOL+2 BIT 16----------- NOT USED 00365E 4aug aeoh TIG0F TuTS R2 +9) Ser rear TON Tae "LINE IS UP 
2178 * Z TURESUL+2 BIT 17----------- NOT USED 003660 4B0C 3 ae net ) 
2179 * . TURESUL+2 BIT 18----------- NOT USED Bea es 1005 oa ace 43, 28) 
z180 ¢ S Penn oyE tere thay. wees Poe er 03686 13.05 2295 JON 42 64 JUMP IF LINE IS PULSING 
o184 : 003668 4A5A 2296 TBTS (R2,26) SET "SELECT IN DRIVE' PULSING 
3183 # : TURESULS2 BI? S1-2--s---—- NGUARD BAND 003668 5001 3397 , ret 
e “HOULTLZ DLL 42£1°7°""n7r"""" ~ 4 y 
2184 * ‘ TURESUL#+2 BIT 22----------- +PLO OUT OF SYNC 00366C 4GA4A S5a0 T TBTS (R2, 10) SET INDICATION THAT "LINE IS UP 
3132 ' 2 PUSROUE TE EEE earn =eee 2300 * ROUTINE TO SET CE INFORMATION IN 'TUINPT! 
2187 * : TURESUL+2 BIT 24----------- NOT USED ee : ce 
2188 * : TURESUL+2 BIT 25---------- -~SELECT OUT DRIVE ooo a ee 
2189 * 3 TURESUL+2 BIT 26---------- -SELECT IN DRIVE Saco | = 
a4134 * 7 SUES Ure Sanaa pee = hae sae: 003688 4028 0100 2305 T761 THI X*0100", TUINPT ‘IE WRITE CLOCK! UP? 
92 * . TURESUL+2 BIT 28----------- NOT USED 
ee m . TURESUL+2 BIT 29 ---------- SEUNBAR REGION 003676 4928 0200 2307 THT X10200' , TOINPT ‘TF WRITE CLOCK" PULSING 
* : TURESUL+2 BIT 30---------- 
3198 * 5 TURESUL#+2 BIT 31----------- + IF WRITE CLOCK 003678 dAOE 2369 TBTS R2 ¢31) SET "IF WRITE CLOCK! PULSING 
2135 ; : Mietate AQF 2311 T760 TBTS fR2 15) SET 'IF WRITE CLOCK! UP 
2198 * 5 TURESUL+4 BIT 32 ~++-------- SPEED IS TOO SLOW 003684 4028 1948 0001 2312 7761 THT x*0601 , TUINPT VTQO FAST" UP? 
9 * : TURESUL+4 BIT 33----------- N S 
5300 * is TURESUL+4 BIT 34----------- NOT USED PELE 4928 1948 0002 ga\8 Tar X1 0002" , TUINPT go FAST" EULSING? 
3309 4 3 cane ae ena ie cha 993698 #258 2316 TBTS R2 427) SET 'TOO FAST" PULSING 
2203 * ‘ TURESUL+4 BIT 36----------- NOT USED Sai Wa D ERG ae 
* : URESUL+4 BIT 37---------- NOT USED 003698 4AUB 2318 762 TBTS (R2,11 E 
5308 * 3 TURESUL*4 BIT 38----------- SECT & INDEX NOT IN CORRECT SEQ posekD 1288 194A 0100 oan6 T76M ant £10400} , rorwpr+2 ee UP? 
3208 x : Pte ee Gee Pee ne pene 003642 4028 194A 0200 2324 THI X°0200' , TUINPT+2 = VFL! PULSING? 
08 * : TURESUL+4 BIT 40----------- NOT USED _ 
5509 * : TURESUL+4 BIT 41---------- NOT USED apecac 283] Zae3 apt: (82 523) SET '- VFL" POULSING 
g2i0 * . EL ee aera AO oEN BO zee GAT 2325 T76K TBTS (R2,7 SET '- VFL" UP 
2211 * : TURESUL#4 BIT 43----------- INDEX PULSE NOT PULSING OO036AE A oe (R2,7) 
2212 * : 
3 * : TURESUL+4 BIT 44----------- NOT USED 2327 
2318 : Z TURESUL +4 BIT te ---------- HoT OSED Busco 1548 aaae T763 aon Aner e) TEST IF SECTOR PULSING 
« *Q BIT 46-373" ------- 
2318 : ee ne eRBS UL +8 BIT 47----------- SECTOR PULSE NOT PULSING gone aRGE = 2330 eee TBTS 22 037) SET Sector PULSE NOT PULSING 
EXI 
$518 # : RETURNS TO MDI SUPERVISOR WHEN DONE. aga eee Anon $332 T769 ae (R203) INDEX NOT PULSING? 
2219 * OO3EBE SOPE 2334 J T763d ERROR EXIT 
2 * EXITS ERROP 
3331 : x RETURNS TO MDI SUPERVISOR. 9036C9 $E03 3908 2339 T760K BAL i (Sens) RD SENSE WORD 1 
003590 6F0D 325E 2223 T7876 MVW R7, TURTN SAVE RETURN ADDRESS 90 36C6 a4 3944 2337 HVA neaeh Te ADDRESS OF SENSE DATA 
003594 4020 3226 7876 2224 MVWI X'7876',$TUID SAVE ID FOR DISPLAY ge foee 2338 ye ae 
00359A 8028 19D0 3943 2225 MVB  DEVADD,£DCB1+1 LOAD DEVICE ADDRESS IN IDCB 0036cCC lore 2339 JOF 160K en PULSE _ 
0035A0 8028 19D0 393D 2226 HVB DEVADD, IORST+1 LOAD DEVICE ADDRESS IN IDCB 9036CE 4908 2340 TBI (R158) SECTOR PULSE 
ELT Mens CLES 3234 BVWZ TURESUL »R2 Pee ee ee ae ar 0036 D2 4050 377A 0038 2342 MVWI 59,CTRS59 INIT SECTOR COUNTER 
MEET: case 1ece 5335 HVWE FORESULSO RO : 0036Da 6E03 3908 2343 T760L BAL SEfS1,R6 
0035B2 4224 18C8 2230 MVA TURESUL ,R2 ADDRESS OF PESULTS WORD 9036DC 3BDE Soi 2340 DC A (SERRS) 
0035B6 C020 0232 2231 MVB  CPUID,RO DETEPHINE PROCESSOR TYPE gpa e0E Here a oie Eee pata susie Suleman 
Ops2BA FO23 2232 eae 31480 : 0036E4 10F9 2347 JOFF 17661 
ORseee B88 $233 re TT76 SOND =MT ae COWeas 0036E6 6£03 3908 2348 BAL SENS1,R6 RD SENSE WORD 1 
0035BE 4020 35DA 1A00 2234 MVWI X*1A00',TT76A42 LOAD TIME CONSTANT FOR 250 MSEC(253) BORecR. “sole ae Ba SENS Re 
00354 S008 pe eae 3332 gwd ariek Ce Sees ne ee ene 0036EC 4124 3944 2350 MVA RDATA a ADDRESS OF SENSE DATA 
0035CC 4020 35DA 04BO 2237 TT76 MVWI X'O4BO', TT76A42 HELE LOAD TIME CONS FOR 250 MSEC ete bing dang 233) aoe (Rg 7S See CHR GH Saas 
0035D2 4020 3742 0128 2238 MVWI X*'012B!,TT73A42 4953) LOAD TIME CONS FOR 25 MSEC pOsene Bhoo sues ano" pees euehes Coe a enna RETRO BERT -RROE  caanee 
0035D8 4324 0000 2239 TT76A MVWI X*'0000!,R3 ETUP COUNT TO COUNT 250 MSEC era gee atone nee ee DECREAENT SECTO 
0035DC 4024 FFFF 2240 MVWI X'FFFF!,RO MASK FOR 'ANDING! G036RC SE03 3 2358 T BA Sreenge 
003520 4020 3776 FFFF 2241 MVWI X'FFFF',SEN10 SETUP MASK OF 1'S poate: pon Souk 2332 Dey. Ngee $) SORES Ge Seite HEA 
0035826 4020 3774 0000 2242 MVWI O,SEN11 CLEAR '"OR* LOCATION aoa uae: cane ee ae paTae ADDRESS OF SENS 
0035EC 6803 3908 2243 T764 BAL  SENS1,R6 READ SENSE WORD ONE 003708 4908 235) TBE (R148 
posers «BEDE eT: oy A (SERS) re 00370A 4907 2359 TBT R1,7) INDEX UP? 
0035F2 8828 3944 3778 2245 MVW RDATA,RSAVE SAVE SENSE DATA GOaaGk 307 2322 TBI eit 
j0sere Sean 3044 3345 xB BO RDATA ce cee OO370E 402E 377A 0001 2361 SWI 1,CTR59 DECREMENT SECTOR COUNTER 
BOaei oe case ca 7a aron at acs RDATA/SEN10 TOR’ SuSE CARE 003714 6803 3908 3362 T760M BAL SENS 1, RS RD SENSE WORD 1 
p03eg8 BBE 3283 crt 7764.83 Toon De SERGE GEE OOsTTA reba 3944 33 ea NVA UREA RY ADDRESS OF SENSE DATA 
00360A 4324 3774 2250 MVA SEN14,R3 ADDR SENSE WORD ZERO (OPED) Hee Her peck ave patay ADDER OO TOT LSPhS 
003602 4801 2251 TRI (R3 1f TEST PLO OUT OF SYNC! J18 g 2365 TBT (F148 
003610 1005 2252 JOFF 1766 SUMP IF LINE IS DOWN 903720 10F9 2366 J T7608 | 
ose4k teas 2233 ae (83 a7) 003724 402F 377A 0000 2368 T760P CWI 0,CTR59 CHECK FOR 59 SECTOR PULSES 
03646 122 3230 et 7665 een iP O Onn: Oboe 00372A 1003 2369 JE T7312 GO TO SPEED ROUTINE 
903618 3804 3328 aap 152627) ea icak sie Bk eee 00372C 4aA66 2370 T760Q TBTS R2 ¢38) SET SEC & INDEX NOT IN SEQUENCE 
00361A 4A46 2257 17605 TBTS R2,6) SET INDICATION THAT "LINE IS UP! 00372E 6802 3C2E 2371 ‘ B CONX ERROR - EXIT 
gBiele Snes ggeg rise $8, diagt eee Tanian he G0 easy saat 
2260 TBT R3,30 2374 * 
903032 1305 3389 JON R85 ) JUMP IF LINE IS PULSING 003732 6£03 3908 2375 T7312 BAL SENS1, 86 READ SENSE WORD ONE 
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LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM 2OPRP 1976 ‘  LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIZSHT IBM CORP 1976 
0038BA 0000 2605 EROO DC A (*#-* 2721 * BAL CMPRW,R6 NORMAL) 
0038BC 0000 2606 ERO DC Rh (*—* 2122 te BAL CMPRT,R6 TEST) 
0038BE 0000 2607 HDOSYV DC A (*-* 723 * 
0038CO 0000 2608 HDISV DC A (*—* 2724 * RETURN 
0038C2 0000 2609 EROSV DC A (#-* 2725 * 
0038C4 0000 2610 ERISV DC A (*-* 2726 * BXS (R6,2) - NORMAL 
0038C6 0000 2611 PATTR DC A (*-* 2727 * 
0038C8 0000 2612 CECYL DC A (*-* 2728 * 
QO38CA 0000 2613 STATS DC A (*-* DTD BMRB MM HM HH HM HH He HM He HH HH He HH HM He He He He He He Me He Me He Me Me He Me He He Me He He He ee He he He He eM He He He He He He HK HH 
2614 2730 * 
2616 PY T78DPCIO 01DEC76 003952 4724 0005 2731 CMPRT MVWI 5,R7 BYTE COUNT 
2617 ** (T78DPCIO) 003956 4324 3871 2732 HVA SéTST+1,R3 ADDR OF RD SECT ID DATA (TEST 
2618 * 2/07/77 00395A 4524 386A 2733 MVA wsipt,R5 ADDR OF WR SECT ID DATA (TEST 
2619 * EXECUTE DPC INPUT/OUTPUT COMMANDS 00395E 5006 2734 J TT4y 
2620 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 003960 4724 0005 2735 CMPRW HVWI COMPARE BYTE COUNT 
2621 * : 003964 4324 322F 2736 MVA eR et R3 ADDR OF RD SEC ID DATA 
2622 * 1 BAL  CEOP1,R6 CE DIAGNOSTIC 02 1(TURN ON DIAG MODE) 003968 4524 3862 2737 MVA  WRSID,R5 ADDR OF WR SEC ID DATA 
2623 * : 00396C 2BA6 2738 TTUY CFNEN re) «Rey COMPARE ID DATA 
2624 * 2 BAL CEOP2,R6 WRITE DIAG CLOCK STEP DATA 00396E 68C0 0002 2739 BE 2) BCH IF WRITE ID DATA OK 
2625 * : 003972 68D2 0000 2740 COMPARE ERROR 
2626 * 3. BAL  SENSO,R6 CE READ SENSE WORD ZERO 2741 * 
2627 * 6 2742 PSST SS SS SSS SSS E SSE PES SL PES SESS SE SESS LSS SPSS SPSS SST See ee SS SSS eS eS S £ tS | 
2628 * 4 BAL  SENS1,R6 CE READ SENSE WORD ONE 2743 * 
2629 * : 2744 * SUBROUTINE 
2630 * 5 BAL WRAP,R6 READ DIAGNOSTIC WRAP 2745 * 
2631 * e 2746 * PURPOSE 
2632 : BXS (R6,2) RETURN 2747 * CONVERT LOGICAL SECTOR NUMBER TO A PHYSICAL SECTOR MINUS 
MARU O SST LCST SELES SESS SS SL SSS SESS SSL SSE SSS SSeS T See Let ets Se St Terr ee + Ste LT ST TS SS 2749 * SETUP LOGICAL SECTOR ¥ IN LOCATION "LGSEC! 
2635 * 2750 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION ‘'PHYSC! 
2636 * CE DIAGNOSTIC OP2 DATA WORD (CLOCK STEP) 2751 * 
2637 * 2752 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 
2639 * BIT 01 - RESET READY 2754 * PHYSICAL X 00, 01, 02, 03, O04, 05, 06, 07, 08, 09, OA, OB, OC, OD, 
2640 * BIT 02 - SET WRITE CLOCK 2755 * 
2641 * BIT 03 - SET READ CLOCK 2756 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 
2642 * BIT 04 - INDEX PULSE 2757 * PHYSICAL OE, OF, 10, 11, 12, 13, 14, 15, 16, 7, 18, 19, 1A, 1B, 
2643 * BIT 05 - SECTOR PULSE 2758 * 
2644 * BIT 06 -— STANDARD READ DATA 2759 * LOGICAI- OE, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 
2645 * BIT 07 - SPEED PULSE 2760 * PHYSICAL Cy, 1D, 1E, 1F, 20, 21, 227 23¢ 24, 25, 26, 27, 28, 29; 
2646 * BIT 08 - BEHIND HOME 2761 * 
2647 * BIT 09 - SET SEEK COMPLETE 2762 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 
2648 * BIT 10 - BESET SEEK COMPLETE 2763 * PHYSICAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 
2649 * BIT 11 —- PLO OUT OF SYNC 2764 * 
2650 * BIT 12 - RST RD/WRT CLOCK 2765 * LOGICAL~ 1C, 3A, 1D, 3B, X 
2651 * BIT 13. - 2766 * PHYSICAL 38, 39, 3A, 3B, X 
2652 * BIT 14 - 2767 * 
2653 * BIT 15 —- RESET DIAGNOSTIC MODE 2768 * 
2654 * 2769 * CALLING SEQUENCE 
2655 3 He a af she he Re af hc ae afc ac ae ae ae ic 2 ac a he ale he ike she ae ie he ae ae she afc alle se cafe ae fs he Be ah he ae oe she fe hc he ake hee oe ate ake afc ae ake ae afc ake ae age afc afc ae oe aac he oe ae of 2770 * 
2656 * 2771 * BAL CONVT,R6 
2657 * 27712 * 
0038CC 6E0D 322C 2658 WRAP MVW  R6 SAVE ADDRESS OF LAST IO 2773 * RETURN 
0038D0 8028 19D0 394F 2659 MVB DEVADD, S DCBRAP#1 LOAD DEVICE ADDRESS IN IDCB | 2774 * 
0038D6 680C 394k 2660 to IDCBRAP READ SENSE WORD 1 2775 * B (TT304+42) 
OO38DA 6F05 3930 2661 BNCC 7 ECERE CHECK COND CODE 27716 * 
OO38DE 5601 2662 BXS (Re, RETURN TO CALLER 2777 He Me he He he he ah He Se He he he ae i hc He He he ah a Nc hc ie eh ee ae fe ae 2c ae ae he ae ate of ae fe ae ae he ae ate a aes fe ie akc ake oe ake sae fe afc fe afc ate ofc oe hc he ac he oc 
2663 * 2778 * 
0038EO 6EOD 322C 2664 CEOP1 MVW R6,ISTI SAVE ADDRESS OF LAST 003976 6E0D 39B6 2779 CONVT MVW TT30442 SETUP RETURN ADDR 
0038E4 8028 19D0 3947 2665 NVB DEVADD. TDCBCE14#1 LOAD DEVICE ADDRESS IW eae: 00397A 802B 383C 385B 2780 CB BEROO. LGSEC+1 CK FOR LOG # ZERO 
OO38RA 680C 3946 2666 to TDCBCE4 SET DIAGNOSTIC HODE 003980 100D 2781 JE TT30 3° BCH IF LOG # IS ZERO 
0038EBE 6F05 3930 2667 BNCC 7 cour CHECK COND CODE 003982 802B 385B 385E 2782 CB LGSEC+1,CB29 COMP LOG TO 29 
0038F2 5601 2668 BYS (f6, RETURN TO CALLER 003988 1CO0D 2783 JGE RTTO1 BCH IF LGSEC EO OR LESS THAN CB29 
2669 * 00398A 4024 0002 2784 MVWI 2,R0 SETUP MULTIPLIER 
00O38F4 6ROD 322c 2670 CEOP2 MVW TIO SAVE ADDRESS OF LAST TO 00398E E821 385B 2785 MB LésEc+1,R0 LOG SECTOR # TIMES 2 
0038F8 8028 19D0 394B 2671 MVB ReGhen IDCBCE2+1 LOAD DEVICE ADDRESS IN IDCB 003992 7802 003C 2786 SHI 60,R0 LOG SEC TIMES 2 MINUS 60 
0O038FE 680C 394A 2672 IO TDCBCE2 WRITE DIAG CLOCK STEP 003996 C028 385D 2787 MVB  kRO,PHYSC+1 PHYSICAL SECTOR NUMBER 
003902 6F05 3930 2673 BNCC CCERR CHECK COND CODE 00399A 500C 2788 J TT304 RETURN TO CALLER 
003906 5601 2674 BXS ‘Uke, 2) RETURN TO CALLER 00399C 8028 3860 385D 2789 TT303 MVB  FIVE9,PHYSC+1 PHYSICAL SECTOR # 59 
2675 * 0039A2 5008 2790 J TT304° RETURN TO CALLER 
2676 * . 0039A4 4024 0002 2791 RTTO1 MVWI LOAD MULTIPLIER 
003908 6E0D 322c 2677 SENS1 HVW R6,LSTIO SAVE ADDRESS OF LAST I0 003948 E821 385B 2792 MB LESEc+1,20 LOG SECTOR # TIMES 2 
00390C 8028 19D0 3943 2678 MVB  DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 0039AC 7802 0001 2793 SWI SUBTRACT ONE 
003912 680C 3942 2679 To TDCB1 ; READ SENSE WORD 2 0039B0 C028 385D 2794 MVB #6, PHYSC+1 LOAD PHYSICAL SECTOR # 
003916 6F05 3930 2680 BNCC 7,CCERR CHECK COND CODE 0039B4 6802 0000 2795 TT304 B RETURN TO CALLER 
003918 5601 2681 BXS (R6, 2) : RETURN TO CALLER 2796 * 
2682 * DTD TR MMR ee he Re he he He he he he hee He a ie a ae he i He 2 KH a he hc hc 2 2 ac a ae cc he ae ae oe 2 fe a i af ae ae ke ae ae ae ake oe oe ofc ok oe hea oe ak fe 
00391C 6EOD 322c 2683 SENSO MVW  R6,LSTIO SAVE ADDRESS OF LAST 2798 * 
003920 8028 19D0 393F 2684 MVB  DEVADD,IDCBO+1 LOAD DEVICE ADDRESS In” IDCB 2799 * SUBROUTINE 
003926 680C 393E 2685 TO IDCBO READ SENSE WORD 1 2800 * 
00392A 6F05 3930 2686 BNCC 7,CCERR CHECK COND CODE 2801 * PURPOSE 
00392E 5601 2687 BXS (R6, 2) RETURN TO CALLER 2802 * 
2688 * 2803 * LOAD WRITE SECTOR ID DATA BUFFER FROM RD SEC ID BUFFEP 
003930 706E 2689 CCERR DC X'706E! COPY STATUS ANY LEVEL INTO R3 2804 * | 
003932 336A 2690 SRL 13,83 POSITION CC CODE TO BITS 13-15 2805 * CALLING SEQUENCE 
003934 C328 3228 2691 MVB = R3 ‘STOIN * PUT IN LOG AREA 2806 * 
003938 68D2 0000 2692 : B. (RO) * RETURN TO USER 2807 : BAL LWSID,R6 
00393C 6F05 2694 IORST DC X'6FO5! RESET I0 2809 * RETURN 
00393E 2205 2695 IDCBO D X¥'2205' SENSE WORD ZERO 2810 * 
003940 0000 2696 RDATAO DC A (#-*) DATA WORD 2811 * BXS (R6) 
003942 2105 2697 IDCB1 DC ¥°2105! SENSE WORD ONE 2812 * 
003944 0000 2698 RDATA D Riot 2813 HK He He He He He Me Hc ee ec Ae ae He he He he hee he ae oe oh 2 ae ae ae lc ae a fe fe ae af ae he oe Se ae ae ae ai ae he oe oie He ee oe abe oe fe kc fe ake ac of fe ae a fle ae 2k ae ak ok feo 
003946 4005 2699 IDCBCE1 DC x*'4005' CE DIAG OP1 2814 * 
003948 0000 2700 CEDAT DC A (Fo *) SENSE DATA 2815 * 
00394A 4105 2701 IDCBCE2 Dc x*4105' CE DIAG OP2 0039B8 4724 0005 2816 LWSID MVWI 5,R7 BYTE COUNT 
00394c 0000 2702 CEDAT2 DC A (*—*) SENSE DATA 0039BC 4324 322F 2817 MVA  SCTID+1,R3 ADDR OF RD SECT ID DATA BUFFER 
00394R 2F05 2703 IDCBRAP DC xX'2F05! READ DIAG WRAP 0039Cc0 4524 38962 2818 MVA  WRSID,R5 ADDR OF WR SECT ID DATA BUFFER 
003950 0000 2704 RAPDAT A (#-*) SENSE DATA 0039C4 2BA4 2819 MVFN 3 7, (R5) MOV DATA FROM RD TO WR BUFFER 
000232 2105 CPUID EQU x'0232! CPU ID 0039C6 5600 2820 ; BXS RETURN TO CALLER 
2708 OPY T78IO 01DEC76 2823 * 
2709 ** (T78T0) 2824 * EXECUTE INPUT & OUTPUT COMMANDS 
2710 HR HA HH A HH HR A HH KH KH HK YD 01/7 6 RH RR RE Fe HR ee Ft tok $k x 2825 * TO EXECUTE ALL I/O COMMANDS FROM A COMHON PLACE. 
2711 * 2826 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
2712 * SUBROUTINE 2827 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
2713 * 2828 * SUPVR CALL. 
2714 * PURPOSE 2829 * : 
2715 * 2830 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
2716 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 2831 * . 
2717 * NORMAL AND TEST DATA. 2832 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2718 * 2833 * 2. ERROR INTERRUPTS RECFIVED FROM SUPVR 
2719 * CALLING SEQUENCE 2834 * 
2720 * 2835 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
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SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


* : 

* 1 BAL — $RKEW,R6 READ SECTOR ID SKEWED 

* 2 BAL $WKST,R6 WRITE SECTOR ID SKEWED (TEST) 

* 3 BAL $RWST,P6 READ SECTOR ID SKEWED (TEST) 

* 4 BAL $RIDS,R6 READ SECTOR ID (TEST) 

> BAL SWKEW,R6 WRITE SECTOR ID SKEWED 

* 6 BAL $WSEC,R6 WRITE SECTOR ID 

+7 BAL $WSTS,R6 WRITE SECTOR ID (TEST 

* 6 BAL SDIAG,R6 DIAGNOSTIC 

“9 BAL XIOCS,R6 CYCLE STEAL STATUS 

* 10 BAL $SEEK,R6 SFEK 

+ 11 BAL $RECL,R6 RECALIBRATE 

* 12 BAL  S$RDID,R6 READ SECTOR ID 

* 13 BAL $RD,P6 READ 

* 14 BAL SRDVY,R6 READ VERIFY 

* 15 BAL $WRT,R6 WRITE 

* 

$SEEK VA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 

x 

$RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 

* 

SRDID MVA_ RSDCB,IODCB SET UP BLOCK FOR SVC CALL 
MVBI X'FFIOR3 SET BUFFER TO F'S 
MVA SCTID;RS5 SETUP READ SECTOR ID BUFFER ADRS 
MYT 6 gR7 SETUP BUFFER LENGTH 
FFN (25) INIT READ SECTOR ID BUFFER 
MVA RSs D,PSDCB+14 DATA ADDR 

: J XIO 

$RD MVBI X'FF*,R3 SETRD BUFFER TO ALL F'S 
MVW RDDCEt 14 R5 SET UP READ BUFFER ADRS 
MV WI x20190" yh SET UP BUFFER LENGTH 
FFN R3 5) | CLEAR READ FUFFER 

$RD$ uva EDBCE, ODCB SET UP BLOCK FOR SVC CALL 

* 

SRDVY MVA © VRDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 

* 

$WRT NVA WPDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 

*x 

$RKEW MVA_ RKDCE,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVBI X'FF',R3 SET BUFFER TO F'S 
NVA  SCTID,;R5 SETUP READ SECTOR ID BUFFEP ADPS 
MVWT 6 4R SETUP BUFFER LENGTH 
FFN 34 fB5) INIT READ SECTOR ID BUFFER 
MVA Rae D, RKDCB+ 14 DATA ADDR 

. J XIO 

$WKST MVA  WKDCB,IODCB SET UP CONTROL BLOCK FOP SVC CALL 
MVA WSIDT,WKDCB+14 DATA ADDR 

: J XIO 

$RWST MVA  BKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MYA © SCTST, *RKDCB+14 DATA ADDP 

x 

$RIDS MVA  RSDCB,IODCB SFT UP CONTROL BLOCK FOR SVC CALL 
MVBI X'FFt-R SET BUFFER TO FIS 
MVA  SCTST)R5 SETUP RFAD SECTOR ID BUFFER ADRS 
KVWT 6,27 SETUP BUFFER LENGTH 
FFN its 5) INIT READ SECTOR ID BUFFER 
MVA R36 T) RSDCB+ 14 DATA ADDR 

. J XIO 

$WKEW MVA  WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
NVA WPSTD,WKDCB+14 DATA ADDBP 

* 

$WSEC MVA  WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
NVA WRSTD, *WSDCB+14 DATA ADDR 

SWSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
MVA  WSIDT,WSDCB4+14 DATA ADDR 

‘ J XIO 

$DIAG NVA  DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
XE 


QIT 
eK He He KH KK KK KK KK KK KKK KKK KK KKK KEK KK KE KEK KKK EKEKK IO TILIA 
* 


: SUB-ROUTINE 


EXECUTE INPUT AND OUTPUT COMMANDS 
PURPOSE 
* 


TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 


ste 
x 
* 
* 
x 
* 
ok 
He 
* 
* 
* 


1. 
2. 
Be 


SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION [THAT STARTED 
THE I/O COMMAND. 

SAVES THE DCB BLOCK USED UNLESS If IS A START CYCLE STATUS 
ISSUED BY THIS SUBROUTINE. 

CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
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50+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOF ANY INTEPRUPT 
1+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
+* MYSTERY INTERRUPT fot}, NTROL BIT IS _ SET. 
+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL ones aoe R7 ea THE 
+* EXPECTED INTERPUPT CONTROL BIT AND ISSUE ‘svc TART’. 
+* 6. WHEN THE SUPVR RETUPNS TER ISSUING THE 16 COMMAND, TIMING 
+* STARTS TO DETERMINE A LOST INTEFRUPT. 
Bd 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
+* WAS AN EFPROR OF OKAY AND EXIT OFF THE INTEPRUPT LEVEL. 
+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETUPN. 
+* 11. CHECK TO SEE IF THE EXEPCISEP IS TO BE TERMINATED. 
+* 12. CHECK IF A CYCLE STEAL ERATION WAS IN PROGRESS THAT WAS 
+* ISSUED BY THIS SUBROUTINE. 
+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
oe COUNT IT AND SET UP THE PROPER EPPOR MESSAGE TO BE PRINTED. 
+ 
= CALLING SEQUENCE 
+ 
7. THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
+* --> BAL XIO1 MOD PARM PRELOADED IN 'IOMOD! 
+* --> BAL XIOCS ,R6 OR XEC START CYCLE STEAL STATUS, MOD=F 
+* --> BAL XIOCS- ~4, R6 AUTO CS STATUS Ae Oe naan OTHER XIO 
ee ° AND DOES NOT POST INTEFPOPT STATUS) 
+ 
— RETURN CONTFPOL 
+ 
+* BXS R6 2) RETURN TO USER NO ERROR 
+* OR B {+ RETORN AND RETRY ON ERPOR 
FESS SS SE TE SESS SLES SELES LESS SETS TE SSE EEE SE SESS SES SEE TS EF KKK EE IE KEK 


+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 

+ J XI01 CS I/O'S ARE NOT RETRIED 

+ 

+ TBTR (R4,CE RESET CS STATUS INTER EPROR INDICAT. 
+ TBTS (RO’CS SET *CYCLE STEAL STATUS" IN PROGRESS 
+#XIOCS MVA SDCB,TODCB SET UP CONTROL PLOCK FOR SVC CALL 
+ MVWI X*OOOF', TOMOD SET CYCLE STEAL MODIFIER 

+ TBT (Ru CS) IS CS IN PROGRESS, ERROR CONDITION 
+ JON to4 * YES, BYPASS SAVING T/0 ADPS 
+XIO1 MVW  R6,LSTIO SAVE LAR FOP PETRY IF REQUESTED 

; MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

+ MVW  IODCB,RS5 * AND THE FROM ADRS, ALONG WITH 

+ MVBI 16,R7 * THE NUMBEP OF MOV 

+ MVFN §Rd) §R3) MOVE 1 STATUS WORD AND ADJUST 

+ MVBI 255, CLEAR CYCLE STATUS BUFFER 

+ MVA  CSBOF,R5 * TO ALL ONES * 

+ MVBI  16,R7 * 

+ FFN R3 4R5) * 

+ MVWI xX'6708",$IOIN OVERLAY OLD CONDITION CODES 

+ MVWZ $ISB,B3 ZERO OUT OLD ISB VALUE 

+ 

+ TBTR (R4,ER RESET ANY ERROR BEFOPE I/0 COMMAND 
#XIO2 TBTR (R4/IW CLEAP INTERRUPT RECEIVED CNTL BIT 
+ MVA OBLK,RT7 SET UP CONTROL BLOCK FOR SUPVR 

+ TBTR (Ra, SEE) RESET LEVEL ERROR INDICATOR 

+ TBTS (R4,XT) SET EXPECTED INTR CONTROL BIT 

os SVC. START CALL SUPVP FOR 1/0 COMMAND 

+ 

+ TBTR (Bos NI) TS AN INTR EXPECTED 

to BN P6,2) * NO, RETURN TO USER 

+ 

+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 

+ MV BI 100" RS SET UP WOPK REG FOR "LOST INTR!® 
+XIO8 TBTR TRY th) HAS INTERRUPT BEEN RECEIVED 

+ JON ToeK * YRS, CHECK IF ALL WAS SATISFACTOPY 
+ SVC IDLE ALLOW ANOTHER PROGRAM A CBANCE TO RUN 
+ SUPVR WILL RETURN HERE 

+ AWI 1,85 ADVANCE TIME OUT COUNT 

+ JNZ  xto8 BCH IF TIME OUT NOT PREACHED 

+ TBTS (Ra ER) SET ON ERROR CONTROL BIT 

+ B R6{ * EPP 'NO INTEFPUPT!? 

HK He HK eK IK HK HK HK He Me HM He Me eK he He He KK ee HK KK KK HK KK KK KK KK KK KKK KKK O3FEB J6** 
+x 

+* SUBFOUTINE 

+ 

tt T/O EXECUTE FRPOR HANDLING ROUTINE 

+ 

+* FURPOSE 

+ 

+% THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 

+* PROPLFM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
+* SUPERVISOR AND IT WAS NOT ACCEPTED. 

+ 

+* CALLING SEQUENCE 

+ 

+ SUPVE WILL ENTER WHEN AN ERROP OCCURS ON AN I/0 COMMAND 

+ 

+* PETUPN CONTFOL 

+ 

+* B (R6) * RETURN TO USERS ERROR HANDLER 

+ 


TRESS SP LESS SESS TEES ST EES SSS EES LS ESE LEE SEL SLE TESTES SELES TEES TS TSS ES FSS SSS FS 
+* 


Gy GY Gy Go Gy Gy Go 0 GG GG Gd Gd Gd Gd) Gd dd dd Gd) Gd) dG dG Gd Ld Ld Gd Gs GI WI WWI WW WWW WWWWWWNNNNNNNNNNNNNNNNNNNNNNNNNNNDNNNNNNNNNNNNNNNNNNNNN 
CTOCSCOSOOSCCOCDSCOCCOCHSCOSGOSSDOSSCOSCOOSOSCADOGDOD DODD OOS SSO SCOSOSSSOSSOSOSSSCOSCDOSOOOSSCOCOMUO YOU DODO VUHUOWDOWDYWUWUOUO DW DOU DDUWDWWDUOUWODOOUDOOWWOONWWWWW 


2. CC O= DEVICE NOT ATTACHED 

+* FOF 1= DEVICE BUSY 

+* T/0O 2= DEVICE BUSY AFTER RESET 

+* 3= COMMAND REJECT 

+* G= INTERVENTION REQUIRED 

+* 5= INTERFACE DATA CHECK 

+* 6= CONTROLLER BUSY 

+ T= I/0 COMMAND EXCEPTED 

+ 

+XIOER DC X'706E!* COPY STATUS ANY LEVEL INTO R3 

+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 

+ ae F3,S5I0IN * PUT IN LOG OUT APEA 

+ (Rb) * RETURN TO USER FRROP HANDLER 

OO Teer ee: He He RH RH RK RK RK KKK KKK KEKE KK EK KEKE KK KKKKKKKK TU ADR 76 ** 
+* IL 
+* SUB-ROUTINE IL 
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3067+* Ls 3183+ ies EPROR 
3068+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL IL 3184+XTOCX MVWZ 6b 3,R3 CLEAR OUT OPTION 3 CNTIL BITS 
30694+* IL 3185+ BXS  (R6,2$ RETURN TO USER VIA PEG 6 
3070+* PURPOSE TL 3186+* 
3071+* TL 318 7+* IT/o PARAMETER LIST 
3072+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVPR DETECTS AN ERROR TL 3188+* 
3073+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 003B96 19D0 3189+TOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
3074+* EXPECTED CODE. TL 003298 3AFE 3190+ DC A (XTOER) ERROR ROUTINE ADRS 
3075+* TL 003B9A 0000 3191+IODCB DC A DCB ADRS OR LEVEL & INTR 
3076+* CALLING SEQUENCE IL 003B9C 0000 3192+ITOMOD DC A a4 MODIFIER 
3077+* IL 003B9E 0000 3193+ DC A (*-* ADRS OF LAST SVC CALL 
30718+% SUPVR WILL ENTER FKFHEN AN ERROP OCCURS ON AN I/O INTERRUPT ae 003BA0 0000 3434+ TORSP DC h (*-* SECOND WORD OF LAST IDCB 
+ + 
Aare RETURN CONTFPOL te eee INTERRUPT CONTROL BLOCK FOR T/O COMMANDS 
+ + 
3082+* SVC EXIT RETURN TO USER VIA SUPVR IL OO3BA2 19D0 3198+INTBL DC A (DEVADD) ADRS OF DEVICE ADPS 
3083+* TL OO3BA4 3B2E 31994 DC A (INTOK INTERRUPT OK RETURN ADRS 
3084 + 3 OI IGOR ICICI ROR IC oi ok oticgolk koto tected TT OO3BA6 3BOA 3200+ Dc A INTER INTERRUPT FRPOR ADRS 
3085+4+* 7 OO3BA8 0003 32014+INTCC DC X'0O0 INTERRUPT CODE EXPECTED 
3086+* CC O= CONTROLLER END ISB = ADD STATUS TL Soya ye ee eee eee bee ba eee SOR ROR RI AOR OK tk tok ok ok 1 MAY 76 KX 
3087+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD REJECT TL 320U+% 
3088+* INTR 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH TL 3205+* SUBROUTINE 
3089+* 3= DEVICE END INTERRUPT INTR = DCB SPEC CK iLL 3206+* 
3090+* G= ATTENTION INTERRUPT = STG DATA CK IL 3207+* CONNECT INTERRUPT CONTROL BLOCK §& PREPARE DEVICE 
3091+* 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADRS IL 3208+* 
3092+* 6= ATTENTION / EXCEPTION INTR = PROTRCT CK TL 3209+* PURPOSE 
3093+* 7J= ATTENTION / DEVICE END INTR = I-FACE DATA IL 3210+* 
3094+* TL 3211+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
OO3BOA T06E 30954+INTER DC X"*7O6E!® COPY STATUS ANY LEVEL INTO R3 TL 3212+* PREFARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
OO3B0C 336A 3096+ SRL 13,83 POSITION INDICATORS IN R3 TL 3213+* TO INTERRUPT. 
OO3BOE Y“Y24U 3220 3097+ MVA OPtN1 RY SET UP BASE ADRS TL 32144* 
003B12 4C28 3098+ TBT (R4 c§) IS CS IN PROGRESS TL 3215+* CALLING SEQUENCE 
003B14 1006 3099+ JOFF INTES * NO TL 32164+* 
003B16 4C6A 3100+ TBTS (RY nt TURN ON CYCLE STEAL INTER ERROR TL 3217+* THIS SUBROUTINE HAS THE FOLLCWING ENTRIES: 
003B18 6FOD 3254 3101+ MVW R7,CST 8 SAVE CS ERR IS VALUE, BITS O-7 TL 3218+ * 
QOO3B1C C328 3255 3102+ MVB R3,CSTL8+1 * AND THE COND CODE IL 32194* --> BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
003B20 500A 3103+ J INTRI IL 32204* --> BAL SCONP, RE PPEPARE DEVICE ONLY, ALREADY CONNECT 
003B22 4C2Y4 31044+INTES TBT (R4,XE) TEST EXPECTED ATTEN / ERPOR IND TL 3221+* 
003B24 1002 3105+ JOFF INTET BCH IF NOT EXPECTED TL 3222+* RETURN CONTROL 
003B26 F304 3106+ CBI W,R3 IS THIS AN "ATTENTION! INTP TL 3223+* 
003828 1006 3107+ JE TATRI * YES, BCH TO END INTR SEQUENCE IL 32244 BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 
OO3B2A 4C61 3108+INTET TBTS aaa ER) SET ERROP ON I/O COMMAND CNTL BIT IL 3225+* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 
003B2C 5004 3109+ J nTh1 TL 3226+* 
3110+* THE ERROR INTERRUPT USES THE SAME TL CPPMRETE LISS SESS S SSS SSS CSL SS CSS SSS SSCS SSP CCS TC SCLO CS CLS SC SSCS LS LL SST LT SSS 2. 2 2 7 
3111+ ENDING SEQUENCE AS THE NORMAL INTR IL OO3BAA OFO6 3228+$CONC MVBI €,R7 NUMBER OF BYTE TO CLEAR 
31134 RRO ROI IG lam ok otok dokaok doko totok TA DR76TL OO3BAC OBOO 3229+ MVBT O-R3 * AND THE DATA TO USE 
3114+* TL OO3BAE 4524 322E 3230+ MVA DEVI R5 * ALONG WITH THE ADRS TO USE 
31154+* SOUBROUTINE TL 0OO3BB2 2BAC 3231+ FFN  R3 (85) x 
3116+* IL OO3BBY4 CB25 3224 3232+ MVWZ opt 3,83 CLEAR OLD CONTROLS FOR NEW POUTINE 
3117+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL* TL 003BB8 &724 3BA2 3233+ MVA INTBL,FP7 SET 87 TO CONTFOL BLOCK AND 
3118+* IL OO3BBC 6014 3234+ SVC CICB * CONNECT IT TO THIS DEVICE 
abe PURPOSE a OO3BBE 6ADO 0000 eee BN (F6) * ERROR RETURN TO USER 
+ + 
3121+* TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 003BC2 8828 325C 3B9A 3237+S5CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
3122+* TL 003BC8 G724 3B96 3238+ MVA IOBLK,RF7 SET R7 TO CONTROL BLOCK TO PREPAPE 
3123+* CALLING SEQUENCE TL 003BCC 4020 3228 0708 3239+ MVWI ¥'0708' ,SIOIN INITIALIZE CONDITION CODE STORAGE 
31244+* IL OO3BD2 CB25 322A 3240+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
3125+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUEST ED TL OO3BD6 6EOD 322C 3241+ AVW R6 LSTIO SET UP ADDRESS THAT STARTED LAST I/0 
3126+4+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL OO3BDA 600C 3242+ SVC PREP * AND CALL ON SUPVR 
3127+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL OO3BDC 5601 3243+ BXS (R6 , 2) RETURN TO USER 
3128+* COMMON SECTION IS HANDLED HERE. IL 320 54+ FO oO tok GR OIC OR a aiGiok oiaklok ickoiok eto 0 6 APR 76408 
3129+ IL 3246+* 
3130+* RETURN CONTROL TL 3247+* SUBROUTINE 
3131+ TL 3248+%* 
3132+% SVC EXIT RETURN TO USER VIA SUPVR IL 32 05%% DISCONNECT THE INTERRUPT CONTROL BLCCK AND LOG ERRORS 
+ + 
D1QU LES ELSRELEREE LEER SEER ER EA ETH ESET SLENEYAEEE EST LATER ENS EPEEEE EEE ER ETL 3251+* PURPOSE 
OO3B2E T706E 31354+INTOK DC Ne ea COPY STATUS ANY LEVEL INTO R3 TL 3252+%* 
003B30 336A 3136+ SRL POSITION INDICATORS IN R3 TL 3253+4+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003B32 HU24U 3220 3137+ MVA OREN RY SET UP BASE ADFS IL 32544% SET THE 'NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
003B36 4C63 31384+INTR1 TBTS /iN SET INTERRUPT RECEIVED TL 3255+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
003B38 4C28 31394 TBT AT "CS IS "CS IN PROGRESS! ON TL 3256+* 
OO3B3A 1204 3140+ JON NT Tk * YES BCH AROUND UPDATE IL 3257+* CALLING SEQUENCE 
003B3C C328 3229 3141+ MVB R3, SIOLIN+1 SAVE INTERRUPTING CC CODE TL 3258+* 
003B40 6FOD 322A 3142+ MVW P7,51SB SAVE INTR STATUS AND DEV ADRS IL 3259+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO3BY4Y4 3143+ INTR2 eRe * TL 32604+* 
3144+4+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 3261+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
OO3B4U4 3521 3145+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 3262+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
OO03B46 0501 3146+ ABIL 1,R5 * IN 'I' BIT TL 3263+* 
003B48 CD24 325C 3147+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL IL 3264+* RETURN CONTROL 
OO03B4C 1002 3148+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 3265+* 
OO3BHE 4C66 3149+ TBTS R4Y, SLE) SET INTR LEVEL ERROP CONTROL BIT IL 3266+* B TURTIN* PETURN TO MDI 
003B50 4C61 3150+ TBTS R4,EP SET EPPROR ON T/O COMMAND CNIL BIT TL 3267+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003B52 4YCA2 31514+INTR3 TBTP RY ,XI WAS INTERRUPT EXPECTED IL 3268+* 
003B54 1204 3152+ JON WrhX * YES, EXIT OFF THIS INTR LEVEL ri 320 Ft SERELEAS ES RERELESERAERS SELECT EN EEESESLAN EEA SERRA TAREE ERAS SE EERE SESE ES 
003856 4C60 3153+ TBTS (R4,MT) * NO, SET MYSTERY INIZR CONTROL BIT IL OO3BDE 4020 1818 8000 32704+fFERR$S MVWI X'8000' ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 
003B58 F304 3154+ CBI iY R3 ATTENTION INTERRUPT? TL OO3BE4 Y724U 3D48B 3271+ MVA HEBLK, R7 GET ADRS OF CONTROL BLOCK 
OO3B5A 1001 3155+ JE TATRE YES TL O003BE8 601A 3272+ SVC ate CONVERT HEX TO EBC VIS DCP 
OO3B5C 4C6C 3156+ TBTS 1a NG) ERROR pee eee INTERFUPT TL OO3BEA 0D03 3273+SPRNT MVBI 
OO3B5E 6006 3157+ TNTRX SVC Xit EXIT FHT IS LEVEL VIA SUPVR TO PGM TL OO3BEC 4324 181A 32744 MVA a0 RORK R3 SET UP BUFFER STORAGE 
315 94 ORO IGOR IO OR ORO OR ok aR IKK) JF ERT 6 OK 003BFO 6BOD 3D40 3275+ MVW R3 BUFPT 
3160+* OO3BF4 4124 3c70 3276+, MVA  Lif®1,R1 
3161+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT OO3BF8 OFOY4 3277+ MVBI 7RT 
3162+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN OO3BFA O£FO8 3278+ MVBI 8,R6 
3163+* RECEIVED AND BRANCHES HEPRE TO CHECK FOR ANY ERROR CONDITIONS. OO3BFC 2B24 3279+MVBUF MVFN (R3 , (R1) 
31644+* OO3BFE OFOU 3280+ MVBI 4 eR 
3165+* 003C00 OA4O 3281+ MVBI X'4O!',R2 
0O0O3B60 4CAY4 3166+XIOCK TBTR RY, XE) WAS AN ERROR EXPECTED 003c02 C258 3282+ MVE R2 (Ri + 
003B62 6ACO 0002 3167+ BN RO, He * YES, EXIT THIS ROUTINE 003C04 BEFB 3283+ JCT MVB F,R6 
003B66 4CA8 3168+ TBTR ) WAS AUTO CS IN PROGRESS 003C06 OE08 328u+ MVBI 8,R6 
003B68 1006 3169+ JOFF * NO, CONTINUE CHECKING 003Cc08 7921 002C 3285+ AWI nyA R1 
OO3B6A 4C2A 3170+ TBT Toe CE) Is c& IN AWN ERR CONDITION O0O03C0O0C BDF7 3286+ JCT MVBUF,R 
003B6C 1002 31714 JOFF xX toco *- NO), BCH 003COE 4020 1802 FIFO 3287+ MVWI BLDH Ee tO PID+2 
QOO3B6E 68D2 0000 3172+ B R6) * cs ERROR 003C14 4020 19B8 3D46 3288+ MVA FAKETU abcaDD1 
003B72 4YC69 3173+XIOCO TBTS R4,CSA) TURN OW CS STATS AVAIL FLAG OO3CT1IA 4020 19BA 3D42 3289+ MVA DC2PT SDCADD2 
003B74 5601 3174+ BXS RO, c GO TO USER 003C20 4LO2C 19C4 0080 3290+ OWL BITO0060 SUPSTAT 
003B76 4C21 3175+XIOCV TBT ) WAS EPROR INTR CONTROL BIT ON 003C26 4324 3226 3291+ MVA $TU R3 SET UP BUFFER STORAGE 
003B78 100B eee JOFF Boer * NO, EXIT THIS ROUTINE 003C2A 6F13 18BA Se BAL TUNSG RTR* F7 GO TO MESSAGE WRITER 
+ 
003B7A C520 3229 3178+ MVB STOING, P5 GET LAST INTPR CC CODE 003C2E 32944+$CONX EQU 
OO3B7E F502 3179+ CBI IS THIS CC=2 0O03C2E C720 19D0 3295+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003B80 68D1 0000 3180+ BNE if a * N BCH TO ERROR HANDLER 003C32 6013 3296+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
0O03B84 C520 322A 31814+xXTOCQO MVB RS GET fast ISB DATA BYTE AND TIF CS 003C34 6812 325E 3297+ B TURTN* RETURN TO MDI SUPERVISOR 
003B88 6A00 3A9E 3182+ BN yrocé -4 * AVAILABLE, GO AND GET IT 3298+* : 
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17809 --- 4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 16 17809 --- 4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 16A 
CROSS-REFERENCE LISTING COPYRIGHT IBM TORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM COFP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
2 1200 
2689 CCERR ADPRESS. .HEX LOCATION (09003930) IN CSECT(I7809 ) LENGTH(2) 1466 F00486 ADDRESS. HEX LOCATION(000031B0) IN CSECT(I7809 ) LENGTH(1) 
1531 CE >fBsoLare. HEX, VALUE (0000002a) 1470 FO04U97 BBDRESS- HEX LOCATION (000031B6) IN CSECT(I7809 ) LENGTH(1) 
1611 CICB gh BSOL OTE. HEX VALUE (00000014) 1474 F00503 ,ARDRESS. HEX LOCATION (000031DA) IN CSECT(I7809 ) LENGTH (1) 
2428 CLDCB ADDRESS. HEX LOCATION(0000378C) IN CSECT(I7809 ) LENGTH (2) 1480 F00506 {RODRESS. HEX LOCATION(0000321A) IN CSECT(I7809 ) LENGTH (1) 
2705 CPUID pBSOLSTEs HEX VALUE (00000232) 3324 HEBLK ADDRESS. HEX LOCATION (00003D48) IN CSECT(I7809 ) LENGTH(2) 
1529 cs ABSOLUTE. HEX VALUE (90000028) 1617 HTOE ABSOLUTE. HEX VALUE (00000012) 
2989 2992 3098 3139 3168 3272 
1530 CSA jpBSOE gre. HEX VALUE (00000029) 2699 IDCBCE1 ADDRESS. HEX LOCATION (00003946) IN CSECT(I7809 ) LENGTH (2) 
1560 CSBUF ADDRESS. HEX LOCATION(00003246) IN CSECT(I7809 \ LENGTH (1) 2701 IDCBCE2 ADDRESS. HEX LOCATION(0000394A) IN CSECT(I7809 ) LENGTH(2) 
1763. 1778 1961 1963 1978 2076 2097 2105 2485 2671 2672 
3000 2703 IDCBRAP ADDRESS. HEX LOCATION(0000394E) IN CSECT(I7809 ) LENGTH (2) 
2478 CSDCB ADDRESS. HEX LOCATION(000037DC) IN CSECT(I7809 ) LENGTH (2) 2659 2660 
2990 2695 IDCBO ADDRESS. HEX LOCATION(0000393E) IN CSECT(I7809 ) LENGTH (2) 
1568 CSTL8 ADDRESS. HEX LOCATION(00003254) IN CSECT(I7809 ) LENGTH (2) 1744 2684 268 
3101 3102 2697 IDCB1 ADDRESS. HEX LOCATION (00003942) IN CSECT(I7809 ) LENGTH(2) 
2403 CTR59 ADDRESS. HEX LOCATION(0000377A) IN CSECT(I7809 ) LENGTH (2) 1743 1876 2061 2225 2678 2679 
2342 2353 2361 6 1593 IDLE ABSOLUTE. HEX VALUE (90000002) 
1550 DCBUF ADDRESS. HEX LOCATION (00003236) IN CSECT(I7809 ) LENGTH (1) 1754 1894 2065 3021 
2995 1524 IW ABSOLUTE. HEX VALUE (00000023) 
3316 DC2PT ADDRESS. HEX LOCATION(00003D42) IN CSECT(I7809 ) LENGTH (2) 1947 1951 3007 3079 3138 
3289 3198 INTBL ADDRESS. HEX LOCATION(00003BA2) IN CSECT(I7809 ) LENGTH(2) 
108 DEVADD ADDRESS. HEX LOCATION (00001900) IN CSECT (17809 ) LENGTH (1) 233 
1575 1743 1744 1876 2061 2225 2226 2659 2665 3095 INTER ADDRESS. HEX LOCATION (00003B0A) IN CSECT(I7809 ) LENGTH (2) 
2671 2678 2684 3189 3198 3295 200 
1545 DEV1 pRRBRESS: HEX LOCATION (0000322E) IN CSECT(I7809 ) LENGTH (2) 3104 INTES ADDRESS. HEX LOCATION(00003B22) IN CSECT(I7809 ) LENGTH (2) 
2416 DGDCB ADDRESS. HEX LOCATION (0000377C) IN CSECT(I7809 ) LENGTH(2) 3108 INTET 4 hBDRESS. HEX LOCATION (00003B2A) IN CSECT(I7809 ) LENGTH(2) 
70 DUMMY ABSOLUTE. HEX VALUE (00000000) 3135 INTOK ADDRESS. HEX LOCATION(00003B2E) IN CSECT(I7809 ) LENGTH (2) 
1241 ENTPT ADDRESS. HEX LOCATION(00002A24) IN CSECT(I7809 ) LENGTH(1) 66 INTRNL ABSOLUTE. HEX VALUE (00000000) 
50 EQ ABSOLUTE, HEX VALUE (00000000) 3157 INTRX gi eDRESS. HEX LOCATION (OO0003B5E) IN CSECT(I7809 ) LENGTH (2) 
1522 ER ABSOLUTE. HEX VALUE (00000021) 3138 INTR1 ADDRESS. HEX LOCATION (00003B36) IN CSECT(I7809 ) LENGTH (2) 
1761 2072 2103 3006 3025 3108 3150 3175 3103 3107 310 
1597 EXIT guBSOLoTE. HEX VALUE (00000006) 3143 INTR2 ze DRRESS. HEX LOCATION(00003B44) IN CSECT(I7809 ) LENGTH (1) 
3318 FAKETU ghDBRESS. HEX LOCATION (00003D46) IN CSECT(I7809 ) LENGTH (2) 3151 INTR3 ADDRESS. HEX LOCATION (00003B52) IN CSECT(I7809 ) LE“GTH(2) 
2560 FIVES ADDRESS. HEX LOCATION (00003860) IN CSECT(I7809 ) LENGTH(2) 3189 IOBLK {BPBEESS. HEX LOCATION (00003896 3h) CSECT(I7809 ) LENGTH (2) 
1382 F00013 ADDRESS. HEX LOCATION(00002E76) IN CSECT(I7809 ) LENGTH (1) 3191 IODCB ADDRESS. HEX LOCATION (OQ0Q3P9R) IN CSECT (17809 } LENGTH (2) 
912 939 1008 1053 1074 1149 2126 2868 2871 2874 2886 2889 2892 2895 29 
1294 F00016 ADDRESS. HEX LOCATION (00002838) IN CSECT(I7809 ) LENGTH (1) 2907 2911 2919 2923 2926 2930 2990 2996 323 
759 780 816 3192 TOMOD ADDRESS. HEX LOCATION(00003B9C) IN CSECT(I7809 ) LENGTH (2) 
1274 F00019 ADDRESS. HEX LOCATION (00002160), IN CSECT (17809 L LENGTH (1) 2985 2991 
ance aoe aoe 921 948 93. 1005 1017 1029 2694 IORST oRODRESS. HEX LOCATION(0000393C) IN CSECT(I7809 ) LENGTH (2) 
1284 F00021 ADDRESS, HEX LOCATION (00002AD8) IN CSECT(I7809 ) LENGTH (1) 40 17809 CSECT. START (00002500) LENGTH (6222) ESDID(0O) 
1270 F00117 ADDRESS. HEX LOCATION(00002A5A) IN CSECT(I7809 ) LENGTH(1) 2557 LGSEC shODRESS. HEX LOCATION (00003852) IN CSECT(I7809 ) LENGTH (2) 
1278 FO00142 ADDRESS. HEX LOCATION (O0002A8A) IN CSECT(I7809 ) LENGTH (1) 3305 LINE1 ga pDRESS- HEX LOCATION (00003C70) IN CSECT(I7809 ) LENGTH(40) 
1288 FO00154 ADDPESS. HEX LOCATION(OOOO2AFC) IN CSECT(I7809 ) LENGTH(1) 1544 LSTIO ADDRESS. HEX LOC ATTON (0000322C) IN CSECT(I7809 ) LENGTH (2) 
744 2658 2664 2670 2677 2683 2994 3241 
1298 F00170 ADDRESS. HEX LOCATION (OOO002BSE) IN CSECT(I7809 ) LENGTH(1) 1521 MT gp BSOLOTE. HEX VALUE (00000020) 
1302 F00200 ADDRESS. HEX LOCATION (00002B64) IN CSECT(I7809 ) LENGTF (1) 3279 MVBUF se QRRBSS. HEX LOCATION (OOOO3BFC) IN CSECT(I7809 ) LENGTH (2) 
1310 F00206 ADDRESS. HEX LOCATION(OO0002BBA) IN CSECT(I7809 ) LENGTH(1) - 1533 NG gh BSOL UTE. HEX VALUE (0000002C) 
1318 FO00224 ADDRESS. HEX LOCATION(00002C12) IN CSECT(I7809 ) LENGTH(1) 1528 NI sARSOLgTe. HEX VALUE (00000027) 
1326 F00229 ADDRESS. HEX LOCATION (00002C68) IN CSECT(I7809 ) LENGTH(1) 660 N00001 ADDRESS, HEX LOCATION (000026C0) IN CSECT(I7809 ) LENGTH (2) 
1340 F00236 ADDRESS. HEX LOCATION(OOOO2CEC) IN CSECT(I7809 ) LENGTH (1) 672 N00002 ADDRESS. HEX LOCATION (000026D2) IN CSECT(I7809 ) LENGTH (2) 
1358 F00246 ADDRESS. HEX LOCATION(00002D9E) IN CSECT(I7809 ) LENGTH (1) 681 N00003 ADDRESS. HEX LOCATION (000026E0) IN CSECT(I7809 ) LENGTH (2) 
a) 
1362 F00257 ADDRESS. HEX LOCATION (00002DC4) IN CSECT(I7809 ) LENGTH(1) 683 N00004 ADDRESS, HEX LOCATION(000026E2) IN CSECT(I7809 ) LENGTH(2) 
1370 F00277 ADDPESS. HEX LOCATION(00002E1C) IN CSECT(I7809 ) LENGTH (1) 689 N00005 ADDRESS. HEX LOCATION (00002625) IN CSECT(I7809 ) LENGTH (2) 
1374 F00286 ADDRESS. HEX LOCATION(00002E40) IN CSECT(I7809 ) LENGTH(1) 701 N00006 ADDRESS. HEX LOCATION(00002700) IN CSECT(I7809 ) LENGTH (2) 
1378 F00292 ADDPESS. HEX LOCATION(00002E64) IN CSECT(I7809 ) LENGTH (1) 713 N00007 ADDRESS. HEX LOCATION (00002712) IN CSECT(1I7809 ) LENGTH(2) 
1386 F00309 ADDRESS. HEX LOCATION(QOOO2E8E) IN CSECT(1I7809 ) LENGTH(1) 725 N00008 ADDRESS. HEX LOCATION (00002724) IN CSECT(I7809 ) LENGTH (2) 
1392 F00330 ADDRESS. HEX LOCATION(O0002ED2) IN CSECT(I7809 ) LFNGTH(1) 728 N00009 aoe HEX LOCATION (00002728) IN CSECT(I7809 ) LENGTH (2) 
1398 F00358 ADDRESS. HEX LOCATION(O00002F16) IN CSECT(I7809 ) LENGTH (1) 731 N00010 ADDRESS. HEX LOCATION (0000272C) IN CSECT(I7809 ) LENGTH(2) 
1402 F00374 ADDRESS. HEX LOCATION(00002F1C) IN CSECT(I7809 ) LENGTH (1) 734 NO0011 ADDRESS. HEX LOCATION (00002730) IN CSECT(I7809 ) LENGTH (2) 
1410 F00386 ADBRESS. HEX LOCATION(OOOO2F7C) IN CSECT(I7809 ) LENGTH(1) 737 N00012 ADDRESS, HEX LOCATION (00002734) IN CSECT(I7809 ) LENGTH (2) 
1414 F00398 {RDDRESS- HEX LOCATION(00002F82) IN CSECT(I7809 ) LENGTH(1) 740 N00013 ADDRESS. HEX LOCATION (00002738) IN CSECT(I7809 ) LENGTH (2) 
1420 F00428 RBBRESS- HEX LOCATION(OOOO2FBE) IN CSFCT (17809 ) LENGTH (1) 743 NOOO014 ADDRESS, HEX LOCATION (0000273C) IN CSECT(I7809 ) LENGTH (2) 
1426 F00435 capone HEX LOCATION(OOOO2FFA) IN CSECT(I7809 ) LENGTH(1) 746 N00015 ADDRESS. HEX LOCATION (00002740) IN CSECT(I7809 ) LENGTH (2) 
1430 FOO454 ADDRESS. HEX LOCATION (Q000301E) IN CSECT(I7809 ) LENGTH(1) 758 NO0016 ADDRESS. HEX LOCATION (00002752) IN CSECT(I7809 ) LENGTH (2) 
1436 F00458 ADDRESS. HEX LOCATION (00003060) IN CSECT(I7809 ) LENGTH (1) 761 N00017 ADDRESS» HEX LOCATION (00002756) IN CSECT(I7809 ) LENGTH (2) 
1444 F00466 RDBRESS. HEX LOCATION(000030C0) IN CSECT(I7809 ) LENGTH (1) 764 N00018 ADDRESS. HEX LOCATION (0000275A) IN CSECT(I7809 ) LENGTH(2) 
1452 F00473 {DBRESS. HEX LOCATION (00003118) IN CSECT(I7809 ) LENGTH(1) 710 w00019 ADDRESS. HEX LOCATION(00002766) IN CSECT(I7809 ) LENGTH(2) 
1460 F00480 ADDRESS. HEX LOCATION (00003170) IN CSECT(I7809 ) LENGTH(1) 773 N00020 ADDRESS. HEX LOCATION(00002765A) IN CSECT(I7809 ) LENGTH (2) 


I7809 --- 


DECLARED 


776 
7179 
7182 
785 
788 
791 
7194 
7197 
800 
803 
806 
809 
812 
815 
818 
821 
824 
827 
839 
851 
863 
866 
869 
872 
875 
887 
890 
893 
896 
908 
911 
914 
917 
920 
923 
935 
938 
941 
944 
947 
950 
962 
974 
986 
989 
992 
995 
1001 
1004 
1007 
10 10 
10 13 
10 16 
1019 
10 22 


NAME 


N00021 

N00022 
N00023 

NO0024 
NO00025 
N00026 
N00027 
N00028 
N00029 
N00030 
N00031 

N00032 
N00033 
N00034 
n00035 
N00036 
N00037 
N00038 
N00039 
NO0040 
NO0041 

NOO0042 
NOO0043 
NOOO4Y 
WO0O045 
NOOOU6 
NOOO47 
NOOO048 
NOOO049 
N00050 
NO0051 

N00052 
N00053 
NOO0054 
NO00055 
N00056 
N00057 
N00058 
N00059 
NO00060 
NO0061 
N00062 
N00063 
N00064 
N00065 
NO0066 
NO0067 
N00068 
NOOQ069 
N00070 
NO0071 
NO0072 
N00073 
NOOO074 
NO00075 
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4962 DISK STATUS AND SEEK TEST P/N=1635428 EC=755285 PAGE 17 17809 --- 4962 DISK STATUS AND SEEK TEST P/N= 1635428 EC=755285 
CROSS-REFERENCE LISTING COPYRIGHT IBM ORP 1976 CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES DECLAPED NAME ATTRIBUTES AND REFERENCES 
375 10 28 N00076 ADDRESS. HEX LOCATION(000028D8) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000276EF) IN CSECT(I7809 ) LENGTH (2) 543 1020 
378 10 31 N00077 ADDRESS. HEX LOCATION(000028DC) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002772) IN CSECT(I7809 ) LENGTH (2) S46 51 
381 1043 N00078 ADDRESS. HEX LOCATION(000028F2) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002776) IN CSECT (17809 ) LENGTH (2) S49 
384 777 1257 10 46 N00079 ADDRESS. HEX LOCATION(000028F6) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000277A) IN CSECT(I7809 ) LENGTH (2) 552 
387 1049 n00080 ADDRESS. HEX LOCATION(OOO0028FA) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000277E) IN CSECT(1I7809 ) LENGTH (2) 555__ 1044 
390 1052 N00081 ADDRESS. HEX LOCATION (000028FE) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002782) IN CSECT(1I7809 ) LENGTH (2) 558 
393 786 1055 N00082 ADDRESS. HEX LOCATION(00002902) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002786) IN CSECT(I7809 ) LENGTH (2) 561 1050 
396 783 1058 N00083 ADDRESS. HEX LOCATION(00002906) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (0000278A) IN CSECT(1I7809 ) LENGTH (2) 564 1032 
399 1070 NOO0084 ADDRESS. HEX LOCATION (0000291C) IN CSECT(I7809 ) LENGTH (2) 
ADDPESS. HEX LOCATION(0000278E) IN CSECT(I7809 ) LENGTH (2) 567 
402 1073 N00085 ADDRESS. HEX LOCATION(00002920) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002792) IN CSECT (17809 ) LENGTH (2) 570 
405 8 1076 N00086 ADDRESS. HEX LOCATION (00002924) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002796) IN CSECT(I7809 ) LENGTH (2) 573 1071 
408 719 1079 N00087 ADDRESS. HEX LOCATION (00002928) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000279A) IN CSECT (17809 ) LENGTH (2) 576 1059 
411 774 1091 N00088 ADDRESS. HEX LOCATION(0000293E) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (0000279E) IN CSECT (17809 ) LENGTH (2) 579 
“1g 1094 N00089 ADDRESS. HEX LOCATION(00002942) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027A2) IN CSECT (17809 ) LENGTH (2) 582 1080 
4417 810 1106 N00090 ADDRESS. HEX LOCATION(00002958) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027A6) IN CSECT (17809 ) LENGTH (2) 585 
4 20 77 1109 N00091 ADDRESS. HEX LOCATION(0000295C) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027AA) IN CSECT(1I7809 ) LENGTH (2) 588 1095 
423 1121 N00092 ADDRESS. HEX LOCATION(0000296E) IN CSECT(17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(OO0027AE) IN CSECT (17809 ) LENGTH (2) 591 
426 819 1133 N00093 ADDRESS. HEX LOCATION(00002980) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027B2) IN CSECT(I7809 ) LENGTH (2) 594 
429 70 1145 nNo00094 ADDRESS. HEX LOCATION(00002992) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027C4) IN CSECT(I7809 ) LENGTH (2) 597 
432 1148 N00095 ADDRESS. HEX LOCATION(00002996) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027D6) IN CSECT (17809 ) LENGTH (2) 600 
435 1151 N00096 ADDRESS. HEX LOCATION(0000299A) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027E8) IN CSECT(I7809 ) LENGTH (2) 603 1146 
438 1154 N00097 ADDRESS. HEX LOCATION(0000299F) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027EC) IN CSECT(I7809 ) LENGTH(2) 606 1134 
uy 852 1157 N00098 ADDRESS. HEX LOCATION(000029A2) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027F0O) IN CSECT (17809 ) LENGTH (2) 609 1122 
44y 1169 N00099 ADDRESS. HEX LOCATION(000029B4) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000027F4) IN CSECT(I7809 ) LENGTH (2) 612 
Gu] 867 1172 N00100 ADDRESS. HEX LOCATION(000029B8) IN CSECT(1I7809 ) LENGTH (2) 
ADDPESS. HEX LOCATION(000027F8) IN CSECT (17809 ) LENGTH (2) 615 1158 
450 1184 N00101 ADDRESS. HEX LOCATION (000029CA) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(O0000280A) IN CSECT(I7809 ) LENGTH (2) 618 
453 1187 N00102 ADDRESS. HEX LOCATION(000029CE) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000280E) IN CSECT(1I7809 ) LENGTH (2) 621 1173 
456 87 1199 N00103 ADDRESS. HEX LOCATION(000029E0) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002812) IN CSECT(I7809 ) LENGTH (2) 624 
459 828 1202 nN00104 ADDPESS. HEX LOCATION (000029E4) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002816) IN CSECT(1I7809 ) LENGTH (2) 627 1188 
462 690 1214 N00105 ADDPESS. HEX LOCATION(000029F6) IN CSECT(I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATTON(00002828) IN CSECT(I7809 ) LENGTH (2) 630 
465 1220 N00 106 ADDRESS, HEX LOCATION(00002A02) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (0000282C) IN CSECT(I7809 ) LENGTH (2) 633 1203 
468 1223 N00107 ADDPESS. HEX LOCATION (00002A06) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002830) IN CSECT(1I7809 ) LENGTH (2) 636 
471 09 1226 N00108 ADDRESS. HEX LOCATION(00002A0A) IN CSECT(17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (00002834) IN CSECT(1I7809 ) LENGTH (2) 639 
“74 1229 N00109 ADDRESS. HEX LOCATION(OOOO2A0F) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002838) IN CSECT(1I7809 ) LENGTH (2) 642 1224 
477 91 1232 N00110 ADDRESS. HEX LOCATION (00002A12) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000283C) IN CSECT(I7809 } LENGTH (2) 645 1221 
480 89 1235 NO0O111 ADDRESS. HEX LOCATION (00002A16) IN CSECT(17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(0000284E) IN CSECT(1I7809 ) LENGTH (2) 648 1110 | 
483 61 OF ABSOLUTE. HEX VALUE (00000202) 
ADDRESS. HEX LOCATION (00002852) IN CSECT(I7809 ) LENGTH (2) 663 692 716 749 854 878 899 926 953 
486 1034 1061 1082 1097 1124 1136 1160 1175 1190 
ADDRESS. HEX LOCATION (00002856) IN CSECT(I7809 ) LENGTH (2) 60 ON ABSOLUTE. BEX J ALDE (09000200) 
ADDPESS. HEX LOCATION (0000285A) IN CSECT(I7809 ) LENGTH (2) 1486 OPTN1 eco eegs oben Goon aa oe IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION (0000285) IN CSECT(1I7809 ) LENGTH (2) 1509 OPTN3 a DUP ESS. 0E% LOCATION(00003224) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002862) IN CSECT(I7809 ) LENGTH (2) 104 PARMAPA ADDRESS. HEX LOCATION (0000196E) IN CSECT(I7809 ) LENGTH (1) 
498 24 670 679 699 711 723 56 837 849 861 
ADDRESS. HEX LOCATION(00002874) IN CSECT(1I7809 ) LENGTH (2) 885 906 933 960 972 984 1041 1068 1089 
501 1104 1119 1131 1743 1167 1182 1197 1212 
ADDRESS. HEX LOCATION(00002886) IN CSECT(I7809 ) LENGTH (2) 2558 PHYSC pepo ee eaney TL OCRELON (GONG Po) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00002898) IN CSECT (17809 ) LENGTH (2) 72 PTD ADDPESS. HEX Se EU a tt Ea yo eterey 
ADDRESS. HEX LOCATION(0000289C) IN CSECT(I7809 ) LENGTH (2) 83 84 85 86 87 88 89 90 91 
510 92 93 94 95 96 97 98 99 100 
ADDRESS. HEX LOCATION (000028A0) IN CSECT (17809 ) LENGTH (2) 101 102 103 104 105 106 107 108 109 
513 110 111 112 113 114 115 3287 
ADDPESS. HEE LOCATION (000028A4) IN CSECT(I7809 ) LENGTH (2) 3319 PIDMSG10 gnnsonutes HEX VALUE (O000F1FO) 
ADDRESS. HEX LOCATION (000028B0) IN CSECT(I7809 ) LENGTH (2) 1603 PREP Saar HEX VALUE (0000000C) 
ADDRESS. HEX LOCATION(000028B4) IN CSECT (17809 ) LENGTH (2) 2698 FDATA ADDRESS. HEX LOCATION(00003944) IN CSECT(17809 } LENGTH (2) 
522 1782 1907 1920 1928 1942 2111 2245 2246 247 
ADDRESS. HEX LOCATION (000028B8) IN CSECT (17809 ) LENGTH (2) 2337 2345 2350 2356 2364 2377 2383 2390 
595 002 26956 FDATAO ADDRESS. HEX LOCATION(00003940) IN CSECT(1I7809 ) LENGTH (2) 
ADDPESS. HEX LOCATION(000028BC) IN CSECT(1I7809 ) LENGTH (2) 1803 
528 75 2511 PDDCB ADDPESS. HEX LOCATION(0000380C) IN CSECT(1I7809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000028C0O) IN CSECT (17809 ) LENGTH (2) 2883 2886 
531 1599 RESET ABSOLUTE. HEX VALUE (00000008) 
ADDRESS. HEX LOCATION (000028C4) IN CSECT (17809 ) LENGTH (2) 1752 1892 2063 
534 1011 1610 PICB ABSOLUTE. HEX VALUE (00000013) 
ADDRESS. HEX LOCATION(000028C8) IN CSECT(I7809 ) LENGTH(2) 3296 
537 963 25:33 RK DCB ADDRESS. HEX LOCATION(0000382C) IN CSECT (17809 ) LENGTH (2) 
ADDRESS. HEX LOCATION(000028CC) IN CSECT (17809 ) LENGTH (2) 2895 2900 2907 2908 
540 2402 PSAVE ADDRESS. HEX LOCATION(00003778) IN CSECT(1I7809 ) LENGTH (2) 


17809 --- 


DECLARED 


2443 
2791 
1549 
2568 
26 8 3 
2677 


2401 
2400 
2467 
1601 
26 13 

107 
2545 
1940 
2546 
1885 
189 1 
2789 
2795 
27 38 
1750 
1753 
1751 
1754 
2380 
2386 
2237 
2239 
103 

95 

101 


1573 
77 
78 

49°77 

2090 

2095 

2081 

2060 

2084 

2064 

2061 

2115 

2087 

2099 

1968 

19 36 

1971 

19 39 

1974 

1950 

1946 

1957 

1951 


4962 DISK STATUS AND SEEK TEST 
CROSS-REFERENCE LISTING 


NAME 


RS DCB 
FTTO1 
SCTID 
SCTST 
SENSO 
SENS1 


SEN10 
SEN11 
SKDCB 
START 
STATS 
SUPSTAT 
TIMEOUT 
TI26C 
TONE 
TT26 
TT261 
TT303 
TT304 
TT4Y 
TT70 
TT7OA 
TT70B 
TT70C 
TT73A 
TT 736 
TT 76 

TT 76A 
TUINPT 
TUMNSGWTR 
TURESUL 


TURTN 
TUSTATUS 
TUWORK 
T2DDD 
T23A 
T23AA 
T235SS 
T23T 
T23TT 
T23T1 
T23T2 
T23U 
T2300 
T23YY 
T26AA 
T26B 
T26BB 
T26C 
T26CC 
T26D 
T26DD 
T26E 
T26F 


ATTRIBUTES AND 
2245 2248 


ADDRESS. HEX 
2783 

ADDRESS. HEX 
2450 2462 25 
ADDRESS. HEX 
2732 2908 2 
ADDRESS. HFX 
1801 

ADDRESS. HEX 
1780 1905 19 
2348 2354 23 
ADDRESS. HEX 
2241 2247 
ADDRESS. HEX 
2242 2248 22 
ADDRESS. HEX 
1900 1901 28 
ABSOLUTE. HEX 
3011 

ADDRESS. HEX 
1763 1764 17 
ADDRESS. HEX 
3290 

ADDPESS. HEX 
1950 1953 
ADDRESS. HEX 
1946 

ADDRESS. HEX 
1953 

ADDRESS. HEX 
1879 

ADDRESS. HEX 
1885 

ADDRESS. HEX 
2781 

ADDRESS. HEX 
2779 2788 2790 


ADDRESS. HEX 
2734 

ADDRESS. HEX 
W747 

ADDRESS. HEX 
1748 1750 
sanyo HEX 


4g 
ADDRESS. HEX 
1755 


ADDRESS. HEX 
2235 2238 
Baca HEX 

DRESS. HEX 
2233 
DRESS. HEX 
2234 2236 2 
DRESS. HEX 
2305 2307 2 
: DRESS. 
RESS. HEX 
1 1757 «#17 
2 2068 20 
RESS. HEX 
1 1870 20 
3 RESS. HEX 
RESS. HEX 
3 3326 
4 RESS. HEX 
9 RESS. HEX 
5 RESS. HEX 
> RESS. HEX 
5 RESS. HEX 
RESS. HEX 
RESS. HEX 
2 2060 
RESS. HEX 


N 
w 


HEX 


Ny 
bn] 


SS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS.~ HEX 
PESS. HE 
1888 1 
RESS. HEX 
RESS. HEX 
1889 1 
RESS. HEX 
RESS. HEX 
1952 
PRESS. HEX 


No NO 
OPO OP OP OY OY OPMPUOr OPO, OFrOrororororor arOPruorNPrN> JT RPOWNPNPWrh rhe Ww 


N 
WO SOSOOODISIDYUHNODWODNSD JO ODOOOMWIY NO OOUYNINDOU OOD SO NIOWONUIDOVDOOUWOWUO 


POOUVELOWONYONOUD SONY AND UID SOUT OONOSDOO NOOO US SFVOOADOAONON 


ee ee Se a Sa wae ir | 


ESS. 
eae 2112 


REFERENCES 


TION (000037AC) 
LOCATION (00003944) 
LOCATION 
40. 2736. 2817 
ATION (00003870) 
294 
TIO 
TIO 
192 
37 


: 

N¢ 
N(0000391C) 
N 

( 

5 


PY wo 
WOO 
QD 


LOCA 


—_t4 
wao 
QD 


A 00003908 


we) 


SCATION (00003776 
QCATION (00003774) 
QC ATION (000037CC) 
V 
i 


Crue eto 


ALUE (0000000A) 
L 
LOCATTON (000019C4) 
LOCATION (00003840) 
LOCATION (00003428) 
LOCATION (00003844) 
LOCATION (0000337E) 
LOCATION (0000339C) 
LOCATION (0000399C) 
LOCATION (000039B4) 
LOCATION (0000396C) 
LOCATION (0000329E) 
LOCATION (000032AA) 
LOCATION (00003244) 
LOCATION (000032AE) 
LOCATION (00003740) 
LOCATION (00003752) 
LOCATION (000035CC) 


>¥QCATION (00003508) 
sHOCAEON (OQOO 1948 


2374 2319 


NOwWWNI0 


LOCATION (0000181A) 
LOCATION (0000348A) 
LOCATION (00003526) 
LOCATION (00003536) 
LOCATION (00003514) 
LOCATION (000034CE) 
LOCATION (0000351A) 
LOCATION (000034E0) 
LOCATION (000034D4) 
LOCATION (00003572) 
LOCATION (00003520) 
LOCATION (00003542) 
LOCATION (00003478) 
LOCATION (00003418) 
LOCATION (0000347E) 


Poug  neee oneal 


3 
LOCATION (00003484) 


LOCATION (00003440) 
987 2 


LOCATION (00003438) 
LOCATION (00003456) 
LOCATION (00003446) 


1940 3409 
2381 6} 8 


P/N= 1635428 


IN 
IN 


(09003225) IN 
2876 


IN 
IN 
IN 


8 
IN 

IN 

In 


See eoen oh In 
1963 1964 2076 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
3 


CSECT (17809 
CSECT (17809 
CSECT (17809 
2879 7 

CSECT (17809 
CSECT (37809 


CSECT (17809 
2243 ©2335 


CSECT (17809 
CSECT(I7809 
CSECT (17809 


T (17809 
1 (17809 
CSECT(I7809 
CSECT (17809 
CSECT (I7809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 
CSECT (17809 


CSEC 
2077 
CSEC 


N CSECT (17809 
HEX LOCATION(000018BA) IN 


CSECT (17809 
ECT (17809 
8 1899 
en (T7809 
eg eer (17809 
CSECT (17809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT(I7809 
CSECT(I7809 
CSECT (I7809 
CSECT (17809 
CSECT(I7809 
CSECT (17809 
CSECT (I7809 
CSECT (I7809 
CSECT(I7809 
CSECT (17809 
CSECT(I7809 


CS 
18 
22 
CS 
32 


WrmnNw 


) 
) 


) 
) 


2343 


) 
) 
) 


— 
eee eee eee eee eee eee 


EC=755285 
COPYRIGHT IBM 2 OPP 


LENGTH (2) 
LENGTH (4) 


pu ENGTH (2) 


LENGTH (2) 
LENGTH (4) 
LENGTH (4) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


PAGE 18 
1976 


DECLARED 


1980 
1988 
1991 
1986 
1893 
1911 
1974 
1917 
1983 
1925 
1918 
19 26 
19 33 
1582 


1808 
1780 
1768 
1771 
1786 
1789 
1792 
1795 
1798 
1801 
2109 
2130 
2131 
2065 
1894 
2375 
2396 
2381 
2388 
2272 
2278 
2285 
2292 
2305 
2332 
2331 
2325 
2319 
2311 
2271 
2284 
2291 
2298 
2335 
2343 
2362 
2368 
2370 
2354 
2353 
225) 


L809: === 


NAME 
T26H 
T26K 
T26L 
T2 6M 
T26TC 
T262 
T263 
T264 
T265 
T266 
T267 
T268 
T269 
T3C02 


T70A 
T70B 
[701 
T702 
T703 
T704 
T705 
T1706 
T708 
T709 
T710 
T72A 
T72B 
T/723 
T726 
T7312 
T732 
T7332 
T734 
T76B 
T76C 
T/6E 
T76G 
T761 
T76J 
T76Jdd 
T76K 
T76M 
T760 
T760A 
T760D 
T/60F 
T760H 
T760K 
T760L 
T760M 
T760P 
T7600 
T760S 
T760SS 
T7605 


DDRESS. 


A 
1956 1960 


ADDRESS. 
1985 

ADDRESS. 
1989 

ADDPESS. 
1990 


ADDRESS. 
1890 


1884 
ADDRESS. 
1909 


ADDRESS. 
1912 
ADDFESS. 


1880 1886 


ADDRESS. 
1924 
ADDRESS. 


1881 1887 


ADDRESS. 
1923 
ADDRESS. 
1931 
ADDRESS. 
930 


ADDRESS. 
703 


715 
976 1060 


1204 
ADDRESS. 
1779 180 
ADDRESS. 
1775 
ADDRESS. 
1766 
ADDRESS. 
1769 
ADDRESS. 
1784 
ADDRESS. 
1787 
ADDRESS. 
1790 
ADDRESS. 
1793 
ADDRESS. 
1796 
ADDRESS. 
1799 
ADDRESS. 
2073 
ADDRESS. 
675 
ADDRESS. 
2129 
ADDRESS. 
2066 


oe) 
Wee & 
WNNNYNWNMNN 
coe we 


RESS. 


NO NO NN NY NY N ND 


bw NM NO 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 

1 
HEX 
HE X 

1 
HEX 
HEX 
HEX 


HEX ene on Oe nee e08). AB 
8 853 877 98 


1081 1135 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


HEX 
379 
HEX 
92 


HEX 


HEX 
HE X 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
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